Error al cargar información a la hoja activa

Buenos días Experto,

Requiero tu amable colaboración respecto a lo siguiente: Tengo un formulario que me permite ingresar en varios textbox los datos de un cliente o proveedor especifico. En un combobox inicialmente defino si es cliente legal, cliente no legal o proveedor. Dependiendo de eso activo la hoja 5,6 o 7 del libro. Valido que el usuario ingresado no se encuentre en la base de datos y finalmente guardo el registro en la correspondiente hoja (es decir: Cliente Legal, No Legal o Proveedor) el punto es que al dar click en el botón solamente me guarda para las hojas de clientes legales y No Legales mas no me guarda la informacion para la hoja de los proveedores a pesar de que si me activa dicha hoja.

A la vez valido que el usuario ingres

Este es el codigo que he empleado para el botón de comando referenciado...

Private Sub CommandButton1_Click()

Dim i As Integer
Dim final As Integer
Dim j As Integer
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Then
MsgBox "Indique todos los datos del usuario"
Exit Sub
End If
If ComboBox1 = "Cliente Legal" Then
Sheets(5).Select
Else
If ComboBox1 = "Cliente No Legal" Then
Sheets(6).Select
Else
If ComboBox1 = "Proveedor" Then
Sheets(7).Select
Exit Sub
End If
End If
End If
For i = 1 To 1000
If ActiveSheet.Cells(i, 1) = "" Then
final = i
Exit For
End If
Next
For j = 2 To final
If ActiveSheet.Cells(j, 1) = TextBox1 Then
MsgBox " El usuario ya existe"
TextBox1.BackColor = &HFF00&
Exit Sub
Exit For
End If
Next
If TextBox1 <> "" And ComboBox1 <> "" Then
TextBox1.BackColor = -2147483643
For i = 1 To 1000
If ActiveSheet.Cells(i, 1) = "" Then
final = i
Exit For
End If
Next
ActiveSheet.Cells(final, 1) = UserForm5.TextBox1
ActiveSheet.Cells(final, 2) = UserForm5.TextBox2
ActiveSheet.Cells(final, 3) = UserForm5.TextBox3
ActiveSheet.Cells(final, 4) = UserForm5.TextBox4
ActiveSheet.Cells(final, 5) = UserForm5.TextBox5
ActiveSheet.Cells(final, 6) = UserForm5.TextBox6
ActiveSheet.Cells(final, 7) = UserForm5.TextBox7
End If

De antemano agradezco tu amable colaboración.

Gorgonita.