Попытка создать файл .txt с помощью макросов для копирования результатов из excel в текстовый файл.

---

Sub Textfile()

Dim FilePath As String
Dim CellData As String
Dim LastCol As Long
Dim LastRow As Long

LastCol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
CellData = ""
DefaultFilePath = "xyz"

FilePath = Application.DefaultFilePath & "\RPA.txt"
Open FilePath For Output As #2
For i = 1 To LastRow
   For j = 1 To LastCol
      If j = LastCol Then
         CellData = CellData + Trim(ActiveCell(i, j).value)
      Else
         CellData = CellData + Trim(ActiveCell(i, j).value) + "  "
      End If
   Next j
   Write #2, CellData
   CellData = ""
Next i
Close #2

MsgBox ("Done")

End Sub

Что я уже пробовал:

В этой конкретной линии

CellData = CellData + Trim(ActiveCell(i, j).value) + "  "

Я получаю ошибку несоответствия типа данных, я вставил весь код в описание, что может быть возможной ошибкой.

---