pivot datenbereich erweitern/akualisieren

Private Sub Worksheet_Activate()
LetzteZeile = Sheets("Bedarfsrechnung").Cells(Rows.Count, 1).End(xlUp).Row
LetzteSpalte = Sheets("Bedarfsrechnung").Cells(3, Columns.Count).End(xlToLeft).Column - 1
With ActiveSheet.PivotTables("PivotTable1")
.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"Bedarfsrechnung!" & Cells(3, 1).Address & ":" & Cells(LetzteZeile, LetzteSpalte + 1).Address
End With
Sheets("Lieferscheine").PivotTables("PivotTable1").RefreshTable
End Sub