Grafområde via variabler

Hejsa,
Et lille problem der består i at der skal laves en graf af et områdes data. Området har skiftende størrelse og fastlægges via variabel r=rækker og k=kol., jvf nedenstående makro.
Problemet er bare at den ikke virker, hvad er der galt ?

Sub LavePivot()
'
' LavePivot Makro
' Makro indspillet 13-08-2002 af Jensena
'

'
    Dim række As Integer, kol As Integer
    'find antal rækker og kol i data omtådet
    Range("L3").Select
    række = 1
    Do While ActiveCell.Value <> ""
    række = række + 1
    ActiveCell.Offset(1, 0).Select
    Loop
   
    Range("L3").Select
    kol = 1
    Do While ActiveCell.Value <> ""
    kol = kol + 1
    ActiveCell.Offset(0, 1).Select
    Loop
    kol = kol - 1
    r = række + 3
    k = kol + 12
   
    Range("L3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'Ark1 (2)'!R3C12:R[r]C[&k]").CreatePivotTable TableDestination:=Range("B3"), _
        TableName:="Pivottabel1"
    ActiveSheet.PivotTables("Pivottabel1").SmallGrid = False
    ActiveSheet.PivotTables("Pivottabel1").AddFields RowFields:="Varenr", _
        ColumnFields:="dato"
    ActiveSheet.PivotTables("Pivottabel1").PivotFields("Pris").Orientation = _
        xlDataField
    Range("D6").Select
    With ActiveSheet.PivotTables("Pivottabel1").PivotFields("Sum af Pris")
        .NumberFormat = "#.##0,00"
    End With
End Sub

mvh
alj