Запись в текстовый файл - содержимого диапазона (построчно) - VBA

Формулировка задачи:

Добрый вечер, программисты vba. Помогите решить вопрос. Есть макрос, который вписывает текст с ячейки C6 - в первую строку определенного файла txt (в данном случае 1.txt). Как заставить макрос подобным образом вписывать в файл 1.txt не содержимое одной ячейки, а диапазона ячеек C1017 (построчно) ? (Пустая ячейка - означает пустую строку)

Sub Test()
    Open ThisWorkbook.Path & "\" & [C5] For Output As #1
         Print #1, [C6]
    Close #1
End Sub

Решение задачи: «Запись в текстовый файл - содержимого диапазона (построчно)»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Open ThisWorkbook.Path & "\" & [C5] For Output As #1
         Dim iCell As Range
         For Each iCell In [C10:D17]
             If Not IsEmpty(iCell) Then
                Print #1, iCell
             Else
                Print #1,
             End If
         Next
    Close #1
End Sub
                        