Pivottabel i excel2000

Jeg har nogle data der står i et regneark og jeg vil gerne lave en pivottabel. Nu er det sådan at jeg godt kunne tænke mig at lave en makro så jeg kan køre dette automatisk. Der er bare det lille "men" og det er at dataerne kan variere meget både med hensyn til hvor mange "Tag" der er og med mere eller mindre antal "datoer"

Jeg havde forstillet mig at man kunne lave en rutine der talte op hvor mange "tag" der er og lægger det ind koderne. Jeg har prøvet men kan ikke få det til at virke. vedhafter pivot koderne underneden.

Tag              Dato_ind
014HP-113-PU03z      18-08-2003
042IC-223-TE02m      18-08-2003
085VA-001-PU02z      22-08-2003
081VEU663-FS01a      22-08-2003
081VEU663-FS01a      23-08-2003
081VEU663-FS01a      23-08-2003
081VEU663-FS01a      23-08-2003

Denne del fortæller hvilket dataområde dataerne ligge i, og det er denne jeg skal kunne variere i antal af "tag" og "dataoer"

Ark2!R1C1:R757C2

Koder:

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Ark2!R1C1:R757C2").CreatePivotTable TableDestination:=Range("A1"), _
        TableName:="Pivottabel2"
    ActiveSheet.PivotTables("Pivottabel2").SmallGrid = False
    With ActiveSheet.PivotTables("Pivottabel2").PivotFields("Tag")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Pivottabel2").PivotFields("Dato_ind")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Pivottabel2").PivotFields("Dato_ind")
        .Orientation = xlDataField
        .Position = 1
    End With