Sub AW_2021()
Dim src As Workbook 
Set src = Workbooks.Open("Kniga2.xlsm", True, True, Password:="Password") `автоматически заносится пароль Kniga1
Application.DisplayAlerts = 0
ThisWorkbook.Activate
Worksheets("List1").Range("B3:B35").Formula = src.Worksheets("List2").Range("Q15:Q50").Formula    `1 что бы одним макросом скопировать 3 столбца 
Worksheets("List1").Range("C3:C35").Formula = src.Worksheets("List2").Range("FS15:FS50").Formula  `2
Worksheets("List1").Range("D3:D35").Formula = src.Worksheets("List2").Range("FT15:FT50").Formula  `3
Workbooks("Kniga2").Close SaveChanges:=False  `чтобы закрыть книгу  принудительно и не сохранять (из которой скопировали)
Application.DisplayAlerts = 1
End Sub

Sub AW_2021()
    Dim sPath As String, sFile As String, sShName As String
    sPath = "Mein.xlsm"  '"
    sFile = "mein.xlsm"  '"
    sShName = "AW" '"
    With Range("A2:A26")
        .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "Q15" '"
        '"Q15" ziel
        .Value = .Value
    End With
    Application.DisplayAlerts = 1
End Sub