Tabstrip letzte Zeile in einem Bereich ansprechen

Private Sub CommandButton1_Click()
Worksheets("übersicht").Activate
Dim last As Integer
Select Case TabStrip1.Value
Case Is = 0
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).rwo + 1
Cells(last, 1).Value = TextBox2
Case Is = 1
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).rwo + 1
Cells(last, 1).Value = TextBox2
Case Is = 2
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).rwo + 1
Cells(last, 1).Value = TextBox2
End Select
If UserForm2.OptionButton_Vollkost.Value = False And UserForm2.OptionButton_Diabetiker.Value =   _
_
_
_
False Then
MsgBox "Bitte Vollkost oder Diabetiker eingeben"
Exit Sub
End If
If UserForm2.OptionButton_selbstschmierer.Value = False And UserForm2.OptionButton_geschmiert.   _
_
_
_
Value = False Then
MsgBox "Bitte selbstschmierer oder geschmiert eingeben"
Exit Sub
End If
If UserForm2.OptionButton_ganz.Value = False And UserForm2.OptionButton_geschnitten.Value =  _
False And UserForm2.OptionButton_fleischpü.Value = False And UserForm2.OptionButton_pü.Value =   _
_
_
False Then
MsgBox "Bitte ganz, geschnitten, Fleisch püriert oder püriert vergeben"
Exit Sub
End If
If UserForm2.OptionButton_halbiert.Value = False And UserForm2.OptionButton_geviertelt.Value =   _
_
_
_
False And UserForm2.OptionButton_gewürfelt.Value = False Then
MsgBox "Bitte halbiert, geviertelt oder gewürfelt vergeben"
Exit Sub
End If
If UserForm2.CheckBox_butter.Value = False And UserForm2.CheckBox_margarine.Value = False Then
MsgBox "Bitte Butter oder Margarine vergeben"
Exit Sub
End If
If UserForm2.ob_u.Value = False And UserForm2.ob_m.Value = False And UserForm2.ob_o.Value =  _
False Then
MsgBox "Bitte Wohnwelt vergeben vergeben"
Exit Sub
End If
End Sub

Private Sub TabStrip1_Click(ByVal Index As Long)

Worksheets("übersicht").Activate

Select Case TabStrip1.Value

Case Is = 0

TabStrip1.RowSource = "a11:bk44"

Case Is = 1

TabStrip1.RowSource = "a45:bk79"

Case Is = 2

TabStrip1.RowSource = "a80:bk114"

End Select

End Sub