Sub выгрузить()
'ЭТОТ МАКРОС ГЛАВНЫЙ ! Копирует таблицы в первую пустую ячейку
 Application.ScreenUpdating = False
 
 Dim Sh1 As Worksheet
 Set Sh1 = ActiveSheet
 
 MsgBox "Файл 'учет комплектаций1'" & IIf(IsBookOpen("\\SERVER\...\учет комплектаций1.xlsx"), " уже открыт", " не занят")

 Sh1.Activate
Dim Rk, Rk0 ''назначение переменных  РАБОТАЕТ!!!
Rk = Columns("A").Rows(65000).End(xlUp).Row '''' определение первой пустой ячейки в колонке А
Range("A20:I" & Rk).Select '' выбор блока ячеек в текущем листе
Selection.Copy '' копирование выбранного
Workbooks.Open Filename:="\\SERVER\...\учет комплектаций1.xlsx"

Dim Sh2 As Worksheet
Set Sh2 = ActiveSheet

Rk0 = Columns("B").Rows(65000).End(xlUp).Row '' тоже самое определение первой пустой ячейки (точнее последней заполненной)
 
 
Range("B" & Rk0 + 1).Select '' а вот здесь выбор первой пустой
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False '' вставка из буфера


Sh1.Activate
   Range("E2").Select
   Selection.Copy
Workbooks("учет комплектаций1.xlsx").Activate
Range("A" & Rk0 + 1 & ":A" & Rk0 + 1 + Rk - 20).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
Application.CutCopyMode = False   ' очистка буфера обмена

      
      ActiveWorkbook.Save
 Application.ScreenUpdating = True
 
End Sub

myArr = Range("A1:D100").Value