Автоматическое копирование листов с разных файлов в один

[Toffifee]

Здравствуйте!
Помогите пожалуйста решить вот такую проблему:
У меня есть 2 файла Excel. Они с макросами. Там огромные таблицы, данные заполняются, что то подсчитывается. Но меняются в них только цифры. Ну и каждый месяц названия файлов меняются. Напимер за тот месяц они назывались: "Анализ прибыли за АПРЕЛЬ 2011 г" и "С апреля с ИТОГО 2011 !!!". А в этом месяце их назовут уже с изменением месяца в названии на май. Требуется создать третий файл Excel, который при открытии будет вставлять в себя определенные листы из тех 2-х файлов. Листы всегда одни и те же и называются они одинаково, из название не переименовывается.
То есть Надо создать файл Excel "Ежедневный отчет", в который будут вставляться листы из файла "Анализ прибыли за АПРЕЛЬ 2011 г":
1. "КАССА_ИТОГ" (Лист4)
2. "1С и Прочее" (Лист47)
3. "Анализ прибыли"(Лист46)
И из файла "С апреля с ИТОГО 2011 !!!":
1. "Бюджет" (Лист2)

Причем ещё должна быть кнопка, при нажатии на которую загружались бы данные из тех 2-х файлов, с которых копируются листы. То есть если там какие то цифры поменяли или вставили строчки новые, здесь, в файле Excel "Ежедневный отчет", всё принимало такой же обновленный вид. Надеюсь понятно объяснила... Это очень сложно, да??? Помогите пожалуйста, не сильна я в VBA.....

Нашла вот на форуме такой вопрос задавался:
"Как прописать кнопку VBA чтобы Лист1 из Книги 1 загрузился на место Лист 1 Книги 2. И при каждом нажатии этой кнопки содержимое Листа удалялось и заменялось на новое."
И вот ответ:
Sub Кнопка1_Щелчок()
''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''
If Len(Dir$("C:\Книга2.xls")) = 0 Then ' проверка доступности рабочей книги
MsgBox "C:\Книга2.xls" & " недоступна "
Exit Sub
End If
''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''' '
Лист1.Range("C3").Value = Time
Лист1.Range("A1:C5").Select ' диапазон или весь лист
Selection.Copy
''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''' ''
Workbooks.Open("C:\Книга2.xls").Act ivate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save ' сохранить
ActiveWorkbook.Close ' закрыть
End Sub

или
Private Sub CommandButton4_Click()
If Len(Dir$("C:\1.xls")) = 0 Then ' проверка доступности рабочей книги
MsgBox "C:\1.xls" & " файл недоступен "
Exit Sub
End If

With Application
.DisplayAlerts = False
.ScreenUpdating = False

ThisWorkbook.Sheets(1).Delete
With Workbooks.Open("C:\1.xls")
.Sheets(1).Copy before:=ThisWorkbook.Sheets(1)
.Close 0
End With

.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub

Можно ли как нибудь переделать его под мой вариант???