Dateinamen automatisch übernehmen

Sub kopieren()
Dim lngLastRow As Long
Workbooks.Open Filename:="K:\Mappe1.xls"
With Workbooks("Mappe1.xls").Sheets("Tabelle1")
lnglastRow = .Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
Range("$A$1:$G$" & lnglastRow).Copy Destination:=Workbooks("07-7.xls").Sheets("Tabelle1"). _
Range("A65536").End(xlUp).Offset(0, 0)
End With
Workbooks("Mappe1.xls").Close SaveChanges:=True
Application.CutCopyMode = False
End Sub

Da ich jewils 50 fortlaufende Dateien habe ( 07-1.xls, 07-2.xls , 07-3.xls, u.s.w.), muss ich natürlich jedesmal den Destination-Pfad anpassen, damit das Makro in der jeweiligen Datei abläuft.
Wie kann man das Makro umschreiben, dass der Destination-Pfad, automatisch den entsprechenden Dateinamen in Workbooks("Dateiname").Sheets... übernimmt.
Besten Dank für eure Hilfe.
Gruß
Christian