combobox'a girilen değerdeki sayfayı açmak ve sıra numarası vermek

[excelmeraklisi]

Private Sub CommandButton1_Click()
Application.Visible = True
SayfaAdi = ComboBox2.Value
Set Kayit = Worksheets(SayfaAdi)
Kayit.Select
Range("b10").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If [b10].Value = "" And [c10].Value = "" Then
[b10].Value = 1
Call Onceki
[b10].Select
[d10].Value = UserForm7.TextBox3.Value
[e10].Value = UserForm7.TextBox4.Value
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1).Value + 1
ActiveCell.Offset(0, 2).Value = UserForm7.TextBox3.Value
ActiveCell.Offset(0, 3).Value = UserForm7.TextBox4.Value

End If
ActiveCell.Offset(0, -1).Value = TextBox1.Value
End Sub
Private Sub UserForm_Activate()
ComboBox1.RowSource = "harcama!B5:B70" & Sheets("harcama").[B1]
ComboBox2.RowSource = "harcama!R17:R28" & Sheets("harcama").[S1]
Application.Visible = False
End Sub

Private Sub Onceki()
SayfaAdi = ComboBox2.Value
SayfaAdi = SayfaAdi - 1
Worksheets(SayfaAdi).Select
Range("c10").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = ActiveCell.Offset(0, -1).Value + 1
SayfaAdi = SayfaAdi + 1
Worksheets(SayfaAdi).Select
End Sub
Yukarıdaki kodlarla combobox'a girilen değeri sayfa adı yapıp o sayfayı seçtiriyorum. Eğer b10 boşsa b10 a bir önceki sayfada hangi numarada kalmışsa ondan sonra gelen numarayı verecek, eğer sayfa 1 ise b10=1 olacak ve sonraki kayıtları 1 artırarak sıra numarası verecek yani b11=2, b12=3...gibi gidecek tşk.