buenas tardes a todos tengo un problema con este formulario ya que al ejecutarlo me sale subindice fuera del intervalo, alguien me puede ayudar por que razón pasa esto, espero contar con ustedes. saludos  y gracias.

PRUEBA2.rar

Hola @javiercito666110784

Debes revisar algunas líneas de tu código.  Por ejemplo, en tu archivo, es incorrecto:

Set Hoja = Worksheets("Hoja3").Range("TABLA2")

Y esto se debe a que debes diferenciar el nombre interno (codename) al nombre externo (name) de la hoja.

En la sintaxis arriba mencionada, estás usando el nombre externo de la hoja.  Es decir que debieses usar:

Set Hoja = Worksheets("REPORTE").Range("TABLA2")

O, si quieres usar el nombre interno de la hoja, puedes usar

Set Hoja = Hoja3.Range("TABLA2")

Allí se genera el error.

Ahora bien, en cuanto a la ordenación de las hojas, estás nombrando columnas que no existen en tu tabla, puesto que ella tiene solamente 5 columnas.  De igual manera, no necesitas en los Key nombrar la columna completa.  Basta con que nombres la celda donde se encuentra el título de lo que quieres ordenar. Puedes usar una sintaxis como la que te propongo como ejemplo:

Hoja.Sort KEY1:=Hoja.Range("A1"), ORDER1:=xlAscending, _
KEY2:=Hoja.Range("D1"), ORDER2:=xlAscending, _
KEY3:=Hoja.Range("E1"), ORDER3:=xlAscending, Header:=xlGuess

Esto también te estaba generando errores.

¡Comentas!

¡Espero haberte ayudado, Dios te bendiga!