Ich habe also ein Makro, das automatisch Werte in einem Autofilter basierend auf einem Datum auswählt.

Das funktioniert super. Allerdings muss es NUR die sichtbaren Zellen mit Daten kopieren und in die nächste verfügbare Zeile im Arbeitsblatt mit dem Namen "Verweis" einfügen.

Sub Referral()
    Application.ScreenUpdating = False

    With Sheets("Raw")
        Sheets("Raw").ShowAllData
        Sheets("Raw").Range("A1:BK1").AutoFilter Field:=14, _
        Criteria1:=Format(Sheets("Main").Range("E13").Value + 15, "mm/dd/yyyy")
        Sheets("Raw").Range("A1:BL50000").Copy
    End With
End Sub