Запись данных в ячейку из другой книги

Sub MyProgramm()
Dim paste As Integer, copy As Integer
copy = Application.Workbooks.Open("C:\Users\user\Desktop\XLSX\1.xlsx").Worksheets("Лист1").Range("A1")
ActiveWorkbook.Close
paste = Worksheets("Лист1").Range("Q2").Value = copy
ActiveWorkbook.Save
 
End Sub

Sub MyProgramm()
 
Dim massiv() As Variant, massiv2() As Variant
 
massiv = Application.Workbooks.Open("C:\Users\user\Desktop\XLSX\1.xls", 0).Worksheets("Прил 1").Range("I24:N54").Value
 
For Each fe In massiv
For a = 1 To 30
For b = 2 To 31
    If Application.WorksheetFunction.IsNumber(fe) Then
    massiv2(a, b) = fe
    
    Else: massiv2(a, b) = 0
    End If
    Next b
    Next a
 
Next fe
 
ThisWorkbook.Worksheets("Лист 1").Range("G6:L36") = massiv2
 
ThisWorkbook.Saved = True
ActiveWorkbook.Close
 
End Sub

Sub MyProgramm()
 
Dim massiv() As Variant, massiv2() As Variant
 
massiv = Application.Workbooks.Open("C:\Users\user\Desktop\XLSX\1.xls", 0).Worksheets("Прил 1").Range("I24:N54").Value
 
For Each fe In massiv
For a = 1 To 30
For b = 1 To 30
    If Application.WorksheetFunction.IsNumber(fe) Then
    massiv2(a-1, b-1) = fe
    
    Else: massiv2(a-1, b-1) = 0
    End If
    Next b
    Next a
 
Next fe
 
ThisWorkbook.Worksheets("Лист 1").Range("G6:L36") = massiv2
 
ThisWorkbook.Saved = True
ActiveWorkbook.Close
 
End Sub

Private Sub Test()
    Dim a, rw&, cl&, f$, wb As Workbook
    f = "C:\Users\user\Desktop\XLSX\1.xls"
    Set wb = Workbooks.Open(f, 0)
    a = wb.Worksheets("Лист1").Range("I24:N54").Value
    For rw = 1 To UBound(a)
        For cl = 1 To UBound(a, 2)
            If Not IsNumeric(a(rw, cl)) Then a(rw, cl) = 0
        Next
    Next
    ThisWorkbook.Worksheets("Лист1").Range("G6:L36") = a
    wb.Close False
End Sub

Private Sub Test2()
    With ThisWorkbook.Worksheets("Лист1").[G6:L36]
         .Formula = "='C:\Users\user\Desktop\XLSX\[1.xls]Лист1'!I24"
         .Value = .Value
         On Error Resume Next: .SpecialCells(2, 22) = 0
    End With
End Sub

Sub MyProgramm()
 
Dim jeu1 As Variant, jeu2 As Variant, ITOGO As Integer
 
jeu1 = Application.Workbooks.Open("C:\Users\user\Desktop\XLSX\XL1.xlsm", 0).Worksheets("Лист1").Range("G9:L21").Value
ActiveWorkbook.Close
 
jeu2 = Application.Workbooks.Open("C:\Users\user\Desktop\XLSX\XL2.xlsm", 0).Worksheets("Лист1").Range("G9:L21").Value
ActiveWorkbook.Close
 
 
ITOGO = Application.Sum(jeu1, jeu2)
 
 
ThisWorkbook.Worksheets("Лист1").Range("G9:L21").Value = ITOGO
 
 
End Sub