Dim lngLetzteZeile As Long
Dim lngLezteSpalte As Long
With ActiveWorkbook.Sheets("EU")
lngLetzteZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
lngletztespalte = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"EU!R1C1:R" & CStr(lngLetzteZeile) & "C" & CStr(lngletztespalte)).CreatePivotTable TableDestination:="", TableName:= _
"PTEU3", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
End With