Macro To Sort Data in a cell range row by row

Ahhh, I see they are all Text, not numeric...
Try change to

Sub test()
    Dim ws As Worksheet, i As Long, ii As Long, t, LastR
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        t = Application.Match("RE", ws.Rows(10), 0)
        LastR = Application.Match("END", ws.Columns("c"), 0)
        If IsNumeric(t) * IsNumeric(LastR) Then
            t = t - 3
            For i = 10 To LastR Step 3
                For ii = 0 To 1
                    With ws.Cells(i + ii, 3).Resize(, t)
                        .Sort .Rows(1), 2, , , , , , , , , 2, , 1
                    End With
                Next
            Next
        End If
    Next
    Application.ScreenUpdating = True
End Sub