実はデータが2000ほどあってとても手作業では・・・

.write Replace(ActiveSheet.Cells(i, 2).Value, vbLf, vbCrLf)

の部分で引っかかってしまって。