modificar el codigo para agregar

[carlosar]

Hola a todos quisiera que me ayudaran en los siguiente tengo una macro de un userform que me inserta los datos capturados pero en la fila 3 y quisiera que los agregara en la columna al final del ultimo registro

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
Sheets("PROVEEDOR").Select
Range("A3").Select
Selection.EntireRow.Insert
Rem ubicamos el cursor en la celda A9
Range("A3").Select
Rem insertamos el texto del TextBox1 en A9
ActiveCell.FormulaR1C1 = TextBox1
Rem repetimos insertar el texto del TextBox2 y 3 en A9
Range("B3").Select
ActiveCell.FormulaR1C1 = TextBox2
Range("C3").Select
ActiveCell.FormulaR1C1 = TextBox3

Rem Empty Limpiamos los TextBox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
Rem TextBox.SetFocus ponemos el cursor en TextBox1
Rem para volver a capturar los datos
Else
MsgBox "Escriba un Nombre"
End If
TextBox1.SetFocus
End Sub

agradezco su ayuda