импорт значений диапозона ячеек из одной книги в другую с помощью элемента управления CommandButton

[ViktorASh]

Всем доброго дня.
Помогите пожалуйста написать код, который будет выполняться при нажатии кнопки CommandButton1, расположенной в Книга1 Лист1.
Задача:
1. Проверка наличия на рабочем столе файла-источника данных Книга2 Лист2.
2. Импорт значений из диапазона A:AE в Книгу1 Лист3 в одноименный диапазон A:AE.

Другой вариант задачи, это возможность выбора файла-источника данных в диалоговом окне.

[doober]

Вы не поверите,но в ноябре выбрал лимит на создание файлов в Excel.
Могу только в блокноте писать,кнопки там не создать.

    Dim oFS: Set oFS = CreateObject("Scripting.FileSystemObject")
    Filename = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Книга2.xls"
    If oFS.FileExists(Filename) Then
        MsgBox "Все класс,книга в наличии", vbQuestion
    Else
        MsgBox "Вам не повезло,источник отсутствует", vbCritical
    End If
   Set oFS = Nothing