VBA PivotTable Automatic Range-selection

perhaps

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"WERE!" & sheets("WERE").Range("A1").Currentregion.address(referencestyle:=xlr1c1), Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Tabelle2!R3C1", TableName:="PivotTable2", _
DefaultVersion:=xlPivotTableVersion10