Hallo, ich habe eine Tabelle, die jeden Tag erweitert wird, also neue Zeilen dazu kommen. Darauf baut eine Pivot-Tabelle auf, bei der ich jeden Tag von Hand den Datenbereich angleiche.
Wie kann ich ein Makro erstellen, das die letzte Zeile im Datenbereich findet und damit den Datenbereich aktualisiert?

ich hab schon folgendes ausprobiert:

    
var ende as range
ende = activecell.range
Sheets("Auswertung").Select
    ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
[b]        "'Daten-Fehler'!R1C1:R" & Ende.row & "C38"[/b]
    ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
    ActiveSheet.PivotTables("PivotTable1").AddFields ColumnFields:="Daten", _
        PageFields:=Array("Jahr", "Jahr(Kauf)", "Kalenderwoche", "Monat", "Hauptmangel", _
        "FM/Gest./WGB/Tuch/Teile", "Bemerkung(Fehlerursache)", "Fehlerart (Bezeichnung)", _
        "In-/Ausland", "Staat", "Kunde", "Kunde(Name)", "Hauptvertreter", _
        "Hauptvertreter(Name)", "Teil(Bezeichnung)", "Teil", "Belegnummer", "Belegdatum", _
        "Reklamationsdatum", "Sachbearbeiter")

aber das haut nicht hin.

Schon mal vielen Dank :)