Autofilter, letzte Zeile d. Filterliste ermitteln

ich suche eine VBA-Lösung mit dem Autofilter, um von einer 3-fach gefilterten und nach einem weiteren Kriterium sortierten Liste den letzten Datensatz zu finden, da dieser den Ausgangswert für den neuen Datensatz bildet. Ohne Autofilter dauert das mit folgendem Code recht lange

Sub Nummernvergabe()

Dim SWert%, N1Wert%, N2Wert%, i&, lfdNr%

i = ActiveSheet.UsedRange.Rows.Count

Selection.Sort Key1:=[G2], Order1:=xlAscending, Header:=xlYes, _
Orientation:=xlTopToBottom

For SWert = 0 To 1 ' Filter 1
For N1Wert = 1 To 9 ' Filter 2
For N2Wert = 0 To 9 ' Filter 3
For j = 1 To i - 1
If Cells(j + 1, 4).Value = SWert And Cells(j + 1
,5).Value = N1Wert _
And Cells(j + 1, 6).Value = N2Wert And Cells(j + 1, 7).Value = "" Then
Cells(j + 1, 7).Value = lfdNr
lfdNr = lfdNr + 1
ElseIf Cells(j + 1, 4).Value = SWert And Cells(j + 1, 5).Value = N1Wert _
And Cells(j + 1, 6).Value = N2Wert And Cells(j + 1, 7).Value <> "" Then
lfdNr = Cells(j + 1, 7).Value + 1
End If
Next
Next
lfdNr = 1
Next
lfdNr = 1
Next
lfdNr = 1

End Sub

Danke für die Hilfe