Sub Kombinieren()
Dim shQuelle As Worksheet, shZiel As Worksheet
Dim Rng As Range
Dim intRow%, nRow%, nColumn%
Application.ScreenUpdating = False
Workbooks.Open Range("M34"), False
Set shQuelle = Workbooks("d160305_424859801__SummeNetznutzung_1.xls").Worksheets("Tabelle")
Set shZiel = Workbooks("EZ.xls").Worksheets("Daten")
On Error Resume Next
intRow = shZiel.Cells.Find("*", shZiel.Range("A1"), , , _
xlByRows, xlPrevious).Row
If Err > 0 Then intRow = 1
On Error GoTo 0
nRow = shQuelle.UsedRange.Rows.Count
nColumn = shQuelle.UsedRange.Columns.Count
Set Rng = shQuelle.Range(shQuelle.Cells(2, 1), shQuelle.Cells _
(nRow, nColumn))
Rng.Copy shZiel.Range("A" & intRow + 1)
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub