ファイル名変更後のフルパスを指定列に出力

Sub prcGenerateNewFilePaths()
    ' 指定されたシート上でファイル名変更後のフルパスをF列に出力する
    
    Dim strFolderPath As String ' フォルダパス
    Dim strFileName As String ' 元のファイル名
    Dim strExtension As String ' ファイルの拡張子
    Dim strNewFileName As String ' 変更後のファイル名
    Dim strNewFullPath As String ' 変更後のフルパス
    Dim lngLastRow As Long ' 処理する最後の行
    Dim lngRow As Long ' 現在処理中の行
    
    ' アクティブシートの使用行数を取得
    With ActiveSheet
        lngLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    
    ' 各行に対してループ
    For lngRow = 2 To lngLastRow ' 1行目はヘッダーと仮定して2行目から開始
        With ActiveSheet
            ' 各列から値を取得
            strFolderPath = .Cells(lngRow, 1).Value
            strFileName = .Cells(lngRow, 2).Value
            strExtension = .Cells(lngRow, 3).Value
            strNewFileName = .Cells(lngRow, 5).Value
            
            ' 変更後のフルパスを組み立て
            strNewFullPath = strFolderPath & strNewFileName & strExtension
            
            ' 結果をF列に出力
            .Cells(lngRow, 6).Value = strNewFullPath
        End With
    Next lngRow
End Sub