CSVファイルを書き出す時には、セル内に改行がある場合があるので注意が必要です。
CSVファイルの行中の思わぬ場所で改行されてしまいます。

改行は、vbCr  vbCrLf  vbLf  vbNewLine  Chr(10)  など色々な書き方がありますが、セル内の改行を取る時には、Chr(10) を消します。

Chr(10) を取ると、改行が無くなるので、読み難くなる為、スペースに置き換えています。

以下、Replace関数を使って、Chr(10) を " " に置き換えている例です。


Dim i As Long
Dim lngEndRow As Long, r As Long

    r = Application.Rows.Count
    
   'CSV用データで、金額の入っている行を最終行とする
    lngEndRow = Sheets(Sht_work1).Cells(r, "BP").End(xlUp).Row

    For i = 1 To lngEndRow
        
        '摘要中の改行コードを消去して1行に戻す
        Sheets(Sht_CSV).Cells(i, "Y").Value = Replace(Sheets(Sht_CSV).Cells(i, "Y").Value, Chr(10), " ")
    
    Next i


以上