Buenas tardes, tengo una macro copiada de un ejemplo que funciona perfectamente. Usa un formulario para capturar datos a una hoja. El problema está cuando convierto el rango normal en una tabla. Aquí ya no me numera la columna A y se desplaza al final de la tabla.

Agradecería me echasen una mano. Adjunto envío archivo.

prueba.xlsm

Hola

Es normal ya que un rango convertido en tabla se vuelve otro tipo de objeto y tiene en general su propia forma de insertar datos, por eso lo mejor es que decidas si prefieres usar un rango de datos o una tabla, decide eso primero. Saludos. 

Hola, quiero que sea una tabla, aunque la hoja del archivo está como rango. 

Gracias. 

Cambia tu código del botón  Grabar datos por este, a ver si es lo que buscas

Private Sub CommandButton1_Click()

    Dim ufh24 As Long
    
    With Hoja24
        ufh24 = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Cells(ufh24, 1) = Application.WorksheetFunction.Max(.Columns(1)) + 1
        .Cells(ufh24, 2) = CDate(TextBox3)
        .Cells(ufh24, 3) = ComboBox2
        .Cells(ufh24, 4) = ComboBox3
        .Cells(ufh24, 6) = TextBox4
        .Cells(ufh24, 7) = CDbl(TextBox1)
        .Cells(ufh24, 8) = CDbl(ComboBox4)
        .Cells(ufh24, 9) = CDbl(ComboBox5)
        .Cells(ufh24, 10) = ComboBox6
        .Cells(ufh24, 11) = CDbl(TextBox2)
    End With
    
    Limpiar
    
End Sub

 

 Perfecto!!!  TEMA RESUELTO

Muchas gracias por vuestra dedicación.

Saludos.