VBA - kopiowanie danych do arkusza z innej lokalizacji

Sub kopiuj_dane()
'
' kopiuj_dane Makro
'

'
    Range("A2:F5000").Select
    Selection.Copy
    Windows("Zeszyt1.xlsm").Activate
    Range("A2").Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

Sub Makro3()
'
' Makro3 Makro
'

'
    Range("A2:F2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Zeszyt1.xlsm").Activate
    Range("A2").Select
    ActiveSheet.Paste
End Sub

Sub Kopiuj_dane()
Workbooks.Open Filename:="H:\BBB\Dane.xlsm"
  With ActiveWorkbook.Sheets(1)
    Intersect(.UsedRange, .Range("A2:F5000")).Copy _
    Destination:=ThisWorkbook.Sheets("AAA").Range("A1")
    Application.CutCopyMode = False
    Workbooks("Dane.xlsm").Close
  End With
End Sub