Sub Kopirovanie()
 
'
' Kopirovanie Макрос
 
'
 
'Выделить диапазон который необходимо скопировать
Range("Таблица1").Select
'Скопировать то, что выделено
Selection.Copy
ChDir "C:\Users\Oleg\Desktop"
Workbooks.Open Filename:="Книга2.xlsm"
'Выделить начальную ячейку в которую необходимо вставить скопированные данные
Range("A2").Select
'Вставить данные
Selection.PasteSpecial Paste:=xlPasteValues
 
'сохранить текущую книгу
ActiveWorkbook.Save
'Закрыть книгу
ActiveWorkbook.Close
End Sub

Sub CopyPaste()

Dim a
a = Range(Range("P2")).Value

'Открываем файл с которого нужно скопировать данные
Workbooks.Open Filename:="G:\Документы подразделений\Упр-е логистики\Отдел организации перевозок\проекты 2024\TEST\Cвод 2024-2025.xlsb"
'Активируем нужную нам книгу
Workbooks("Cвод 2024-2025.xlsb").Activate
'Выделяем и вставляем скопированные данные в ячейку
ActiveWorkbook.Worksheets("ПЭ").Range("B89").Select
ActiveSheet.Paste
'Закрываем книгу откуда мы скопировали данные
WB.Save
WB.Close

End Sub

Sub CopyPaste()
   
Dim a
a = Range(Range("P2")).Value.Copy
        
    Dim wb As Workbook
    Set wb = Workbooks.Open("G:\Документы подразделений\Упр-е логистики\Отдел организации перевозок\проекты 2024\TEST\Cвод 2024-2025.xlsb")
    Worksheets("ПЭ").Range("B89").Resize(UBound(a, 1), UBound(a, 2)) = a


wb.Close True

End Sub

Sub CopyPaste()
Dim a, wb As Workbook

a = Range(Range("P2")).Value
        
   Set wb = Workbooks.Open("G:\Документы подразделений\Упр-е логистики\Отдел организации перевозок\проекты 2024\TEST\Cвод 2024-2025.xlsb")
   
   with wb. Worksheets("ПЭ")
   .Range(.Range("A4")).Resize(UBound(a, 1), UBound(a, 2)) = a
   end with
   
wb.Close True

End Sub

Sub CopyPaste()
Dim a, wb As Workbook

a = Range(Range("B1")).Value
        
   Set wb = Workbooks.Open("G:\Документы подразделений\Упр-е логистики\Отдел организации перевозок\проекты 2024\TEST\Cвод 2024-2025.xlsb")
   
   With wb.Worksheets("ПЗП")
   .Range(.Range("B1")).Resize(UBound(a, 1), UBound(a, 2)) = a
   End With

   Следующий шаг в этой же книге (Cвод 2024-2025.xlsb) в этом же листе ("ПЗП") с ячейки A1 (в которой указан диапазон который нужно скопировать)
копируем и вставить нужно в эту же книгу (Cвод 2024-2025.xlsb) на лист ("ПЭ") в ячейку, адрес которой указан в ячейке А1

wb.Close True

End Sub

Sub CopyPaste()
Dim a, wb As Workbook

a = Range(Range("B1").Text).Value
Set wb = Workbooks.Open("G:\Документы подразделений\Упр-е логистики\Отдел организации перевозок\проекты 2024\TEST\Cвод 2024-2025.xlsb")
With wb.Worksheets("ПЗП")
  .Range(.Range("B1").Text).Resize(UBound(a, 1), UBound(a, 2)) = a

'Следующий шаг в этой же книге (Cвод 2024-2025.xlsb) в этом же листе ("ПЗП") с ячейки A1
'(в которой указан диапазон который нужно скопировать)
'копируем и вставить нужно в эту же книгу (Cвод 2024-2025.xlsb) на лист ("ПЭ") в ячейку,
'адрес которой указан в ячейке А1
  .Range(.Range("A1").Text).Copy wb.Worksheets("ПЭ").Range(.Range("A1").Text)
End With
wb.Close True
End Sub