Que procedimiento se debe hacer

Tengo un programa de control vehicular pero está mostrando el siguiente error, que puedo hacer:

private Sub CommandButton1_Click()
For i = 6 To 309
If Sheets(ComboBox4.Text).Cells(i, 1) = "" Then
Final = i
Exit For
End If
Next
Sheets(ComboBox4.Text).Range("C3") = TextBox1
Sheets(ComboBox4.Text).Range("H3") = TextBox3
Sheets(ComboBox4.Text).Range("J3") = TextBox4
Sheets(ComboBox4.Text).Range("L3") = TextBox5
Sheets(ComboBox4.Text).Range("M3") = TextBox6
Sheets(ComboBox4.Text).Cells(Final, 1) = TextBox2
Sheets(ComboBox4.Text).Cells(Final, 2) = CDbl(TextBox7)
Sheets(ComboBox4.Text).Cells(Final, 3) = ComboBox1
Sheets(ComboBox4.Text).Cells(Final, 4) = CDbl(TextBox8)
Sheets(ComboBox4.Text).Cells(Final, 5) = CDbl(TextBox9)
Sheets(ComboBox4.Text).Cells(Final, 7) = CDbl(TextBox10)
Sheets(ComboBox4.Text).Cells(Final, 8) = CDbl(TextBox11)
Sheets(ComboBox4.Text).Cells(Final, 10) = ComboBox2
Sheets(ComboBox4.Text).Cells(Final, 11) = ComboBox3
Sheets(ComboBox4.Text).Cells(Final, 12) = TextBox12
Hoja1.Activate
Unload Me
MsgBox ("Datos Ingresados")
End Sub