Excel - Ingresar datos a una columna y pasar a la siguiente en un formulario

He creado un formulario que tiene un ComboBox, un textBox , 2 botones de option y dos comand que son aceptar y cancelar

La idea es llenar las filas del la columna B comenzando por la B5, una vez llenado pasar a ingresar datos a la fila C activando la C5 y llenar los datos y pasar a activar la D5........


Envio el codigo
Este código es del Botón Aceptar

Private Sub CommandButton1_Click()

Range("B5").Select
ActiveCell.FormulaR1C1 = ComboBox1
ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = TextBox1
ActiveCell.Offset(1, 0).Range("A1").Select

If (OptionButton1.Value = True) Then
ActiveCell.FormulaR1C1 = "Nac."
Else
ActiveCell.FormulaR1C1 = "Ext."
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Range("C5").Select


End Sub

Este es el código del Botón Cancelar

Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

Este es para cargar los datos al ComboBox1

Private Sub UserForm_Initialize()

ComboBox1.List = Array("Tinta Epson", "DVD-R Imation", "Papel bond 75gr")

End Sub

Gracias por su ayuda a todos

Aqui puedes bajar un ejemplo con lo que te sugeri en tu post anterior:
https://docs.google.com/file/d/0BwedMfHTCustTTRLcGZQT3ZCa3c/edit?usp=sharing