Funzione ricerca in menù a tendina

Private Sub CommandButton1_Click()
Dim i As Integer
Dim ur As Long
Dim sh As Worksheet
On Error Resume Next   
Set sh = Worksheets("Gennaio 2017")
ur = sh.Cells(Rows.Count, 2).End(xlUp).Row <=== riga modificata
sh.Cells(ur + 1, 1).Value = CDate(Me.TextBox1.Value)
sh.Cells(ur + 1, 2).Value = Me.ComboBox1.Value
sh.Cells(ur + 1, 3).Value = Me.ComboBox2.Value
For i = 2 To 8
    sh.Cells(ur + 1, i + 2).Value = Me.Controls("TextBox" & i).Value
Next i
Me.ComboBox1.Value = ""
Me.ComboBox2.Value = ""
For i = 1 To 8
    Me.Controls("TextBox" & i).Value = ""
Next i
End Sub