Как сделать вставку копированного диапазона в ячейки не пустых строк

[Xstroy]

К диапазону ячеек в столбце применён фильтр.
В следующих столбцах в одной из строк, не участвующих в фильтрации подготовил ячейки с формулами.
Требуется скопировать их и вставить после фильтрации столько раз, сколько не пустых строк (итог фильтрации)

Sub КопированиеВставка()
    Range("M3:Q3").Select
    Selection.Copy
    Range("M5:Q30000").Select
    ActiveSheet.Paste
    Range("B2").Select
End Sub

Пробовал вот так. С заведомо большим диапазоном, но подобная вставка приводит к ошибке, указывающей на слишком большой диапазон (ошибка 1004).
К сожалению, просто не знаю как описать условие:
вставить столько раз, сколько непустых значений в соседнем столбце.

Ответ нужен как можно быстрее. Сегодня только зарегистрировался, дважды задавал вопрос на форуме в продолжение открытых тем, но сообщения очевидно не прошли модерацию.

Прошу на этот раз всё же помочь советом.