Pivot Tabelle dynamisch erstellen

Sub PivotTabelleErstellen()
'
Sheets("Daten").Select
Range("A2").Select

laR = Cells(Rows.Count, 1).End(xlUp).Row

Selection.CurrentRegion.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Daten!R1C1:R" & laR & "").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1"""
[...]

Bei der Bestimmung von "SourceData:= " kriege ich das mit Syntax einfach nicht hin - wer kann mir helfen?

Vielen Dank,

Sebastian