Macros VBA

[busqueda]

Buenas tardes.

tengo un problema con mi macros al ejecutar el boton guardar de la macro par registro en tabla de excel. esta informacion si se adiere, el problema es que se ingresa hasta la ultima fila del registro de excel en la celda A65535

este es el comando, si alguien pudiera ayudarme!!!



Private Sub CommandButton1_Click()
Sheets("proveedores").Select Range("A2").Select
If TextBox2 = "" Or TextBox3 = "" Or TextBox5 = "" Or TextBox15 = "" Or TextBox16 = "" Or TextBox17 = "" Or TextBox18 = "" Or TextBox19 = "" Then
MsgBox "Está dejando campos requeridos vacios favor complete", vbExclamation, "Almacen"
TextBox3.SetFocus
Else
Range("A" & Cells.Rows.Count).End(xlUp).Offset(1).Select
ActiveCell = TextBox2.Value
ActiveCell.Offset(0, 1) = TextBox3.Value
ActiveCell.Offset(0, 2) = TextBox5.Value
ActiveCell.Offset(0, 3) = TextBox15.Value
ActiveCell.Offset(0, 4) = TextBox7.Value
ActiveCell.Offset(0, 5) = TextBox13.Value
ActiveCell.Offset(0, 6) = TextBox14.Value
ActiveCell.Offset(0, 7) = TextBox16.Value
ActiveCell.Offset(0, 8) = TextBox17.Value
ActiveCell.Offset(0, 9) = TextBox18.Value
ActiveCell.Offset(0, 10) = TextBox19.Value
MsgBox "Empleado ingresado exitosamente", vbInformation, "Servitap"
TextBox2 = ""
TextBox3 = ""
TextBox5 = ""
TextBox15 = ""
TextBox7 = ""
TextBox13 = ""
TextBox14 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
TextBox2.SetFocus
End If
End Sub