Alternative zu "Cells(Rows.Count, 2).End(xlUp)"

gibt es eine alternative Möglichkeit die letzte Zeile
in der ausgewählten Tabelle zu markieren?
Das Makro macht genau dann Probleme, wenn unter der
ausgewählten Tabelle noch andere Tabellen vorhanden sind.

Sub LetzeZeileiBereich()
Dim i As Range
Set i = Cells(Rows.Count, 2).End(xlUp)
i.Select
Range(ActiveCell.Address, ActiveCell.End(xlToRight)).Select
End Sub

PS: Habe probiert mit "i = Selection.CurrentRegion.Rows.Count"
klappt nicht.

Kann mir jemand helfen?

Vielen Dank.

Grüße