Foro Excel

Hola a todos usaba esta macro para ordenar los apellidos y nombres de los alumnos en una sola columna:

Private Sub ordenar()
ActiveSheet.Unprotect "gilestel" ' Desprotege
intRespuesta = MsgBox("¿Desea ordenar los apellidos de los alumnos?", vbExclamation + vbYesNo, " Atención Tutor Peregrino")
If intRespuesta = 6 Then
Range("C12:C47").Select
Selection.Sort Key1:=Range("C12"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollRow = 1
Range("C12").Select
End If
ActiveSheet.Protect Password:="gilestel" 'Protege
End Sub

ahora lo que necesito de la ayuda de ustedes es que se puedan ordenar todas las columnas del archivo q adjunto ya que constantemente se ingresan datos y se necesita q este en orden alfabetico.

Gracias de antemano por su ayuda en el archivo pongo mas datos sobre el pedido.

Hola Dany

Revisa el adjunto, creo que es lo que quieres.

Un saludo desde Vitoria

Hola Ioyama muchas gracias por tu ayuda esta excelente sobre los numeros era para diferenciar los apellidos q hay hasta tres hermanos y usaba en otra hoja una lista de validacion y era para diferenciar nada mas, nuevamente gracias saludos de Lima.