Мой код не перебирает первый столбец

Question

Следующий код не выполняет итерацию по первому столбцу.

With ThisWorkbook.Worksheets(1)
   For Line = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row


       'Write Read-In Data into target data
        Print #1, Join(Application.Transpose(Application.Transpose(.Range(.Cells(Line, 2), .Cells(Line, .Columns.Count).End(xlToLeft)).Value)), "|")


    Next
    End With  

Я не понимаю, почему

Answer 1

.Range(.Cells(Line, 2) <--- поменяйте число 2 и поставьте 1 </p>

Answer 2

Вы перебираете строки. Разве это не: .Cells(Line, 2) опечатка? Я предполагаю, что это должно быть .Cells(Line, 1)