Sub CopyPaste()
Dim a, wb As Workbook

a = Range(Range("B1")).Value
        
   Set wb = Workbooks.Open("G:\Документы подразделений\Упр-е логистики\Отдел организации перевозок\проекты 2024\Cвод 2024-2025.xlsb", Password:="789", WriteResPassword:="789")
   
   With wb.Worksheets("ПЗП")
   .Range(.Range("B1")).Resize(UBound(a, 1), UBound(a, 2)) = a
   End With
   
   With wb.Worksheets("ПЗП")
   a = .Range(.Range("A1")).Value ' взяли в массив с листа "ПЗП"
   End With
   
   With wb.Worksheets("ПЭ")
   .Range(.Range("A1")).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
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
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

Set WB = Application.Workbooks.Open("путь к файлу", Password:="123", WriteResPassword:="456")

ThisWorkbook.SaveAs Filename:=filePath, FileFormat:=xlExcel12 (пробовал и FileFormat:=50)

Sub Save()
    Dim folderPath As String, filePath As String, oCell As Range
        
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .ButtonName = "Выбрать эту папку"
        If .Show = -1 Then
            folderPath = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With
    For Each oCell In Range([O4], [O9].End(xlUp))
        If Not IsEmpty(oCell) Then
        
        If Dir(folderPath & oCell, vbDirectory) = "" Then
            MkDir folderPath & oCell
        End If
        'имя файла
        filePath = folderPath & [O4].Value & "\" & [O9].Value & ".xlsb"
        If ThisWorkbook.FileFormat = 53 Then
        ThisWorkbook.SaveAs Filename:=filePath, FileFormat:=50
        End If
    End If
    Next oCell
End Sub