Datensatz an letzte Stelle einer Tabelle kopieren

Sub Tagesabrechnung_Uebertrag()
' Macro für den Übertrag der Tagesabrechnungen in die Jahresdatei
Dim wbTag As Workbook
Dim wksKonsolidierung As Worksheet
Dim strFileZiel As String
Dim wbZiel As Workbook, wksZiel As Worksheet
strFileZiel = "C:\Users\GBRJahr2017.xlsm"
Set wbTag = ActiveWorkbook
If wbZiel Is Nothing Then
'Zieldatei öffnen
Set wbZiel = Application.Workbooks.Open(Filename:=strFileZiel)
End If
'Tabellenblatt in Zieldatei setzen
Set wksZiel = wbZiel.Sheets("Jahreskonsolidierung")
With wbTag
.Activate
Set wksKonsolidierung = .Sheets("Konsolidierung")
End With
With wksKonsolidierung
.Range("B6:G6").Copy
With wksZiel
.Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
End With
wksKonsolidierung.Activate
Set wbTag = Nothing: Set wbZiel = Nothing
Set wksKonsolidierung = Nothing: Set wksZiel = Nothing
End Sub