Sub kopirovani_mezi_soubory()

Dim soubor_z As Workbook
Dim soubor_do As Workbook

Application.ScreenUpdating = False

Set soubor_z = Workbooks.Open("C:\Users\coffee\Desktop\Ukol\prvni soubor.xlsm")
Set soubor_do = Workbooks.Open("C:\Users\coffee\Desktop\Ukol\test.xlsx")

soubor_z.Sheets("ListZ").Range("A2:A100").Copy

soubor_do.Activate
Sheets("List1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("A1").Select

soubor_z.Close
soubor_do.Save
soubor_do.Close

End Sub