VBA Excel Datos en una misma hoja

Estoy diseñando una base de datos en excel... El cual quiero intregar en una misma hoja mucha información... Le problema es... Que tengo una columna de que se llama OS la cual es la fila 1 y le quiero asignar un numero de factura... Que vaya relacionada con su mismo número de OS... Diseñe un formulario en el cual yo pueda ver las OS y su monto y de manera manual le pongo que número de factura, fecha e importe el cual en la base lo debe de registrar la información en la fila de la OS, el problema que tengo es que cuando le quiero poner el numero de factura en la OS ejemplo 2 me lo registra en la 1, lo de la 5, en la 2, 4 en la 3, osea me guarda en la base en numero consecutivo no de acuerdo a su OS, ¿Me podrian ayudar a solucionar este problema?

El codigo que estoy utilizando es...

Private Sub ToggleButton1_Click()
Dim Fila As Integer
Dim final As Integer
For Fila = 2 To 1000
If Hoja2.Cells(Fila, 22) = "" Then
final = Fila
Exit For
End If
Next
For Registro = 2 To final
If Hoja2.Cells(Registro, 22) = Me.TextBox2 Then
Me.TextBox2.BackColor = &H8080FF
MsgBox ("Registro ya existente" + Chr(13) + "Ingrese un numero de factura diferente")
Me.TextBox2.SetFocus
Exit Sub
Exit For
End If
Next
If MsgBox("¿Son correctos los datos?" + Chr(13) + "¿Desea guardar la información?", vbOKCancel) = vbOK Then
Me.TextBox2.BackColor = &HFFFFFF
Hoja2.Cells(final, 22) = Me.TextBox2
Hoja2.Cells(final, 23) = Me.TextBox3
Hoja2.Cells(final, 24) = Me.TextBox4
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox3 = ""
Me.TextBox1.SetFocus
Else
Exit Sub

End If

End Sub