Sub perenos()
'от последней строки столбца А прыгаем наверх до первой снизу заполненной ячейки (аналог Контрл+СтрелкаВверх) и присваиваем r_ номер той строки, в которой оказываемся
          r_ = Лист2.Range("A" & Rows.Count).End(xlUp).Row
'аналогично для r1_
          r1_ = Лист4.Range("A" & Rows.Count).End(xlUp).Row
'r_-3 - кол-во заполненных строк, которые нужно перенести
'если r_>3, то переносить нужно
'тогда на сборный лист начиная с первой пустой ячейки на r_-3 вниз и на 4 вправо вставляем значения того, что у нас в диапазоне Range("A4:D" & r_)
          If r_ > 3 Then Лист4.Range("A" & r1_ + 1).Resize(r_ - 3, 4) = Лист2.Range("A4:D" & r_).Value
End Sub