add auto sort to the begining of a macro

[Jerk24]

I have a macro that will replace a alphanumeric code, with a corrisponding name that is on sheet4. This use to be two macros. now that I have combined them, the macro will only pick up a few lines. what i need is a way to tell the macro to sort everything on column A, and then run the Macro.

Sub uic()
Dim subs
Set subs = Sheet4
Set r = subs.Range("B2:" & subs.Range("C2").End(xlDown).Address)
For i = 1 To r.Rows.Count
Sheet2.Range("M2:" & Sheet1.Range("M2").End(xlDown).Address).Select
Selection.Replace What:=r.Cells(i, 1), Replacement:=r.Cells(i, 2), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next

End Sub

 

[DwinZly]

When in doubt, record a macro that does exactly what you want, then read the code. I recorded a macro and sorted the first column and got something like this:

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A2:A6")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[Jerk24]

So I want to add this to work with the above Macro?

 

[DwinZly]

So I want to add this to work with the above Macro?

Just change the range in my code to the column you want to sort and paste it in front of your code.