質問です

最初は それを削除するものを作ったんだけど よくよく読んでみたら ないようなので なくしちゃったんですよね。

Sub main()
Dim p As String
'対象フォルダを指定してください。
'このフォルダに この実行用のブックは 入れないでください。

p = "C:\test\"

'処理対象となる拡張子を指定して 呼び出します。
Call jikkou(p, "csv")

End Sub


Sub jikkou(p As String, s As String)

Dim bk() As String
Application.DisplayAlerts = False
    
f = Dir(p & "*." & s, vbNormal)

Do While f <> ""
    k = 0
    ReDim bk(k)
 
    ch1 = FreeFile
    Open p & f For Input As #ch1
 
    Do While Not EOF(ch1)           'ファイルの終端かどうかを確認します
        Line Input #ch1, textline  'データ行を読み込みます
        ReDim Preserve bk(k)
        bk(k) = textline
        k = k + 1
    Loop
    Close #ch1
 
    ch2 = FreeFile
    moji = ""
    kk = 0
    Open p & f For Output As #ch2
    For i = 0 To k - 1
        textline = bk(i)
        If Trim(textline) <> "" Then
            kk = kk + 1
            textline = Replace(textline, "《名称》", "")
            textline = Replace(textline, "《TEL》", "")
            textline = Replace(textline, "《〒》", "")
            textline = Replace(textline, "《住所》", "")
            If kk > 4 Then
                Print #ch2, moji       'データの書き込みをします
                moji = textline
                kk = 1
            Else
                If moji = "" Then
                    moji = textline
                Else
                    moji = moji & "," & textline
                End If
            End If
        End If
    Next i
    
    If moji <> "" Then
        Print #ch2, moji       'データの書き込みをします
    End If
      
    Close #ch2
 
    f = Dir
Loop


Application.DisplayAlerts = True

End Sub

https://www.hatena.ne.jp/shop/point/sendpoint

こちらから送信できます。

最後のプログラムを実行して確認してみると 処理後の状態になります。

問題となるパターンを あげてください。

プログラムとしては 連続する4つを 接続するようにしています。
《名称》
《TEL》
《〒》
《住所》
それぞれのワードをチェックして 連結するようにすれば いいかもしれませんね。

何かありましたら 別に質問だてしてもらったほうが わかりやすいかなと思います。