Программный переход между книгами Exel

Private Sub CommandButton1_Click()
    Me.[B2:E5].Copy Workbooks("Книга2.xls").Worksheets("Лист1").[B2].Paste
End Sub

Sub Procedure_1()
 
    Dim bkBook_1 As Excel.Workbook
    Dim bkBook_2 As Excel.Workbook
    
    'Даём имена книгам. Через эти имена можно обращаться к книгам.
    Set bkBook_1 = ActiveWorkbook
    Set bkBook_2 = Workbooks(2)
 
    bkBook_1.Worksheets(1).Range("A1").Copy Destination:=bkBook_2.Worksheets(1).Range("A1")
 
End Sub

'Это в начало модуля
Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
'Это после вашего кода
OpenClipboard Application.hWnd
EmptyClipboard
CloseClipboard

Workbooks.Open (ThisWorkbook.Path & "\2.xls") ' открываем вторую книгу
 
For x = 1 To 20 ' перебираем ячейки в первой книге и заполняем их значения во вторую
    For y = 1 To 20
    Workbooks("2.xls").Sheets(1).Cells(x, y) = ThisWorkbook.Sheets(1).Cells(x, y)
    Next
Next
 
Workbooks("2.xls").Close True ' закрываем вторую книгу с сохранением

Workbooks("2.xls").Sheets(1).Cells(1,1).resize(20,20).value = _
    ThisWorkbook.Sheets(1).range("A1:T20").value

Private Sub CommandButton1_Click()
   ...
    Dim isk As Variant
    'isk-Выбранная в календаре дата
    isk = Left(Range("F1"), 5)
    Dim bkBook_1 As Excel.Workbook
    Dim bkBook_2 As Excel.Workbook
    Set bkBook_1 = ThisWorkbook
    Set bkBook_2 = Workbooks("Анализ работы мобильных терминалов за " & n_mm & ".xls")
    bkBook_2.Worksheets(2).Activate
    ActiveWorkbook.Sheets.Item(2).Select
    For i = 0 To 32
    ' Перебираю ячейки с датами
        s = ActiveWorkbook.Sheets.Item(2).Range("F3").Offset(0, i).Value
        If s = isk Then ' если совпадает, делаю вставку данных в нужный столбец
          bkBook_1.Worksheets(1).Range("D1:D122").Copy Destination:=bkBook_2.Worksheets(2).Range("F4").Offset(0, i)
          Exit For
        End If
    Next i
    bkBook_1.Worksheets(5).Range("A1:H100").ClearContents
   
End Sub

Sub Procedure_1()
 
    Worksheets(1).Range("A1").Copy
    
    Worksheets(2).Range("A1").PasteSpecial xlPasteValues
    
    'Отключение режима копирования
    '(в режиме копирования пунктирные границы вокруг копироуемых ячеек).
    Application.CutCopyMode = False
    
End Sub

Sub Procedure_1()
 
    Worksheets(2).Range("A1").Value = Worksheets(1).Range("A1").Value
 
End Sub