Делать до цикла - пока все строки не станут пустыми

Question

Я еще не знаком с языком программирования VBA и пока могу записывать и понимать макросы, но сделать это самому все еще довольно сложно.

В настоящее время я работаю над шаблоном печати (имя рабочего листа "Горизонтальный"). Шаблон должен быть заполнен информацией, которую он получает из рабочего листа "ZFA". После заполнения шаблона он распечатает и очистит его, а также удалит строку из "ZFA". Поскольку мне приходится выполнять эту задачу много раз в день, я хотел знать, есть ли возможность сделать это с помощью цикла. Так повторяйте верхние шаги, пока colom c не станет пустым на листе "ZFA".

Код, который я сейчас использую для заполнения шаблона, печати и удаления строки:

    Range("A2").Formula2R1C1 = "=ZFA!RC"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Range("A2").Select
    Selection.ClearContents
    Sheets("ZFA").Select
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
    Sheets("Horizontal").Select

Итак, можно ли повторять эту задачу, пока столбец C на листе ZFA не станет пустым?