Цитата
макрос собрал данные именно тех листов названия которых в столбце А в лист"СПИСОК"
Вам надо определить список листов, с которых собирать данные. Возьмите за основу такой макрос,
для столбца А листа МЕНЮ
[vba]Код
Sub Sbor()
Dim i As Integer
Dim iLR As Integer
Dim iLastRow As Integer
Dim iName As String
Dim Spisok As Worksheet
Set Spisok = Worksheets("СПИСОК")
iLR = Range("A2").End(xlDown).Row
For i = 3 To iLR
iName = Cells(i, 1)
With Worksheets(iName)
iLastRow = Spisok.Cells(Rows.Count, 5).End(xlUp).Row + 1
.Range("A1").CurrentRegion.Copy Spisok.Cells(iLastRow, 1)
End With
Next
End Sub
[/vba]