Всем привет!
Помогите с макросом. Есть таблица (см.вложенный файл,лист 1). Нужно перенести данные с "датами" вниз таблицы,копируя и наименование и "дату" (см.вложенный файл,лист 2). Так как даных по датам очень много,хотелось написать макрос,для переноса данных. Я написал в таком виде:

Range("B2:D288").Select
Application.CutCopyMode = False
Selection.Copy
Range("B289").Select
ActiveSheet.Paste

Range("F1").Select
Application.CutCopyMode = False
Selection.Copy
Range("A289:A576").Select
ActiveSheet.Paste

Range("F2:F88").Select
Application.CutCopyMode = False
Selection.Copy
Range("E289").Select
ActiveSheet.Paste
------
Range("B2:D288").Select
Application.CutCopyMode = False
Selection.Copy
Range("B576").Select
ActiveSheet.Paste

Range("G1").Select
Application.CutCopyMode = False
Selection.Copy
Range("A576:A862").Select
ActiveSheet.Paste

Range("G2:G288").Select
Application.CutCopyMode = False
Selection.Copy
Range("e576").Select
ActiveSheet.Paste

ну итд.
Хотелось попросить помощу у уважаемых людей и помочь мне написать эти все манипуляции в цикл.
Спасибо за понимание