Buenas, alguien me podría ayudar con mi código?

[Cartron]

Este código va en un botón el cual inserta datos pero al presionarlo me sale: 
Se ha producido el error '-2147417848(80010108)' en tiempo de ejecúcion:
Error en el método 'Insert' de objeto 'Range'

A continuación les dejo el código en cuestión:

Private Sub CommandButton1_Click()
Range("Alumnos!A2").EntireRow.Insert

Range("Alumnos!B2") = TextBox1.Value
Range("Alumnos!C2") = TextBox2.Value
Range("Alumnos!A2") = TextBox3.Value
Range("Alumnos!D2") = ComboBox1.Value
Range("Alumnos!E2") = ComboBox2.Value

MsgBox "Registro completo"
LimpiarCampos
End Sub

Si alguien me puede ayudar se lo agradecería mucho, saludos.

[Antoni]

He probado tu código y funciona, habría que ver el archivo.

[JasallBcn]

Buenas , que version tienes de excel ?

Saludos

[JSDJSD]

Hace 26 minutos , JasallBcn dijo:

Buenas , que version tienes de excel ?

[JSDJSD]

En Excel 2019 Windows también funciona

[DiegoPC]

Usando la bola de cristal....

Presiona CTRL + Fin, podría apostar (parezco apostador compulsivo) que al presionar esa compbinación de teclas, te va a enviar a la última fila.

Si eso es cierto, Excel asume que has usado la totalidad de filas y, por lo tanto, ya no puedes adicionar más.

 

[DiegoPC]

Hace 18 horas, JSDJSD dijo:

Creo que @JasallBcn preguntaba por la versión del solicitante (quien abrió este hilo) y no de @Antoni casi me caigo como el popular Condorito, jajajaja

[JSDJSD]

Uffff  me despisté tienes toda la razón del mundo, pido disculpas....?

[Antoni]

Hace 21 horas, JSDJSD dijo:

????