Hola, requiero de un macro que este constantemente orden

Sacame de una duda, el traspado de información lo estas realizando con una macro, porque la solución más simple es poner la instrucción al final de copiar el ultimo dato y en ese momento ordenar. Es lo mejor que podrías hacer si el código de traspado de información te lo permite.
Te envío el posible código a utilizar.

Si requiero de una macro. Porque voy estar utilizando un formulario y al momento que se actualicen los datos se vayan ordenando automáticamente. Gracias por tu atención

La ultima pregunta y te envío el código. El rango a ordenar es definido respecto a las columnas y si todas las celdas tienen datos o existen celdas vacías.
Enviame esta respuesta y te envío el código

Si, bueno ya se ha modificado un poco mi proyecto y ahora requiero de que esa macro me organice alfabéticamente 8 pares de columnas. Si definido respecto a columnas y no habrá celdas vacías. Son 8 pares de columnas similares a las del ejemplo. Yo supongo que con un solo código que ordene repetido 8 veces para sus respectivos rangos se resolverá mi problema. Gracias por tu atención

Acá existen dos posibilidades:
Una que el código que te voy a enviar lo agregues al final del código que tu ocupas o sino crear un nuevo modulo agregar el código y asignar esa macro a un nuevo botón
el código debería ser algo así:
Sub ordenar()
        Range("A1").Select
        primera = ActiveCell.Address
        Selection.End(xlDown).Select
        Selection.End(xlToRight).Select
        ultima = ActiveCell.Address
        Worksheets("Hoja1").Range(primera & ":" & ultima).Sort Key1:=Worksheets("Hoja1").Range("A1")
End Sub
Donde debes poner el nombre de la hoja de los datos, poner el rango a que corresponde los datos
Pruébalo y me comentas
Suerte y juégatela