Если можно копировать сразу диапазон, без условий на строки, то так
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub Copy_f_sad()
Dim ws As Worksheet
Dim SVOD As Worksheet
Set SVOD = Worksheets("Info (2)")
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> SVOD.Name Then
ws.Rows("4:" & ws.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row).Copy _
Destination:=SVOD.Range("A" & SVOD.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row + 1 )
End If
Next ws
SVOD.Select
Range("A1").Select
End Sub
Для того чтобы ячейки попадали в список на первом листе необходимо чтобы в момент запуска макроса список был активен!
