Макрос для заполнения ячеек из столбца последовательно при нажатии на кнопку

Я предполагаю, что остальная часть кода выполняется и вам нужен способ, чтобы получить строку для вставки значений. Вот фрагмент, который лучше всего работает, если ваши данные не очень большие, и вы предпочитаете циклы:

Dim rNext as Long
rNext = 2   'First used row in column F
Do Until LenB(Range("F" & rNext).Value) = 0
    rNext = rNext + 1
    If rNext = ActiveSheet.Rows.Count Then Exit Do
Loop

и вот решение, которое является более надежным и немного быстрее:

Dim rNext As Long
rNext = Range("F2:F" & Cells.Rows.Count).Find(vbNullString).Row

как вы могли бы сказать из второго примера, вы могли бы сделать это непосредственно со следующим:

Range("F2:F" & Cells.Rows.Count).Find(vbNullString).Value = "Y"