kopieren ohne Quelle zu öffnen

Hi Leute,
ich muss nochmal was fragen: gibt es eine einfache Möglichkeit, das Makro zu ändern, dass ich nicht jedes Mal alle Tabellen öffnen muss?
Für Tipps und Hilfe vielen Dank im voraus.
Gruß
Ulrike
Private Sub Workbook_open()
' TP1
With Workbooks("010101 TP1 Aktivitätenliste Umbau.xls").Sheets(2)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("070327 Umbauliste gesamt.xls").Sheets(1). _
Range("A2")
End With
' TP2
With Workbooks("010101 TP2 Aktivitätenliste Umbau.xls").Sheets(2)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("070327 Umbauliste gesamt.xls").Sheets(1). _
Range("A65536").End(xlUp).Offset(1, 0)
End With
'TP3
With Workbooks("010101 Umbauplanung Swap 0 bis 13 TP1 TP3 bis SW 5 (ZH).xls").Sheets(2)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("070327 Umbauliste gesamt.xls").Sheets(1). _
Range("A65536").End(xlUp).Offset(1, 0)
End With