Ordenar en distintas hojas de Excel los datos introducidos según sus características identificativas

Prueba esta macro y cuéntame como te fue, reemplaza las celdas que te señalo.
Sub Ordenarx()
    Dim w1 As Worksheet
    Dim w2 As Worksheet
    Set w1 = Worksheets(1)
    Set w2 = Worksheets(2)
    '''''''''''''''''''
    Encabezado1 = "A5" 'celda donde empieza el emcabezado de la hoja1
encabezado2 = "A5" 'celda donde quieres que empieza la tabla en la hoja2
    '''''''''''''''''''
    Application.ScreenUpdating = False
    w2.Select
    W2. Range(encabezado2, Range(encabezado2). SpecialCells(xlLastCell)). ClearContents
w1.Select
    w1. Range(encabezado1, Range(encabezado1). SpecialCells(xlLastCell)). Copy w2. Range(encabezado2)
    w2.Select
    Range(encabezado2, Range(encabezado2).SpecialCells(xlLastCell)).Sort Key1:=Range("C5"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    w1.Select
    Application.ScreenUpdating = True
End Sub

Estimado experto, te agradezco mucho la ayuda, comentarte que la macro funciona bien, solo me falta consultarte si es que hay la forma de hacer que se modifiquen los datos de forma instantánea, al ir introduciendo los datos, yo inserté un botón a la cual le asigné la macro, pero necesito saber si es posible de alguna forma que los datos se cambien al momento de introducir los datos en la hoja 1, espero tu respuesta, gracias por la ayuda, un saludo...

Ok, vas a insertar en el modulo este código
Sub Ordenarx()
    Dim w1 As Worksheet
    Dim w2 As Worksheet
    Set w1 = Worksheets(1)
    Set w2 = Worksheets(2)
    '''''''''''''''''''
    Encabezado1 = "A5" 'celda donde empieza el emcabezado de la hoja1
encabezado2 = "A5" 'celda donde quieres que empieza la tabla en la hoja2
    '''''''''''''''''''
    Application.ScreenUpdating = False
    w2.Select
    W2. Range(encabezado2, Range(encabezado2). SpecialCells(xlLastCell)). ClearContents
w1.Select
    w1. Range(encabezado1, Range(encabezado1). SpecialCells(xlLastCell)). Copy w2. Range(encabezado2)
    w2.Select
    Range(encabezado2, Range(encabezado2).SpecialCells(xlLastCell)).Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    w1.Select
    Application.ScreenUpdating = True
End Sub
Function verificar(fila As Integer, cdesde As Integer, chasta As Integer) As Boolean
    While (cdesde <= chasta)
    If Cells(fila, cdesde) = 0 Then
        verificar = False
        Exit Function
    End If
        cdesde = cdesde + 1
    Wend
    verificar = True
End Function
y en el codigo de la hoja, click derecho en la pestaña->ver codigo insertaras este
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lector As String
Dim c1 As Integer, c2 As Integer
c1 = 1
c2 = 6
f = 5
If Not Application.Intersect(Target, Range(Columns(c1), Columns(c2))) Is Nothing Then
    If Target.Row > f Then
        If (verificar(Target.Row, c1, c2)) Then
            Call Ordenarx
        End If
    End If
End If
End Sub