Help With Part Of Current Code

[Dazzawm]

What do I need to change on the recorded code so it looks at the whole sheet rather than the range (AD2:AD216892, A2:A216892, A1:AX216892), as I will use on multiple files with different amount of rows/columns please?

Cells.Select
    Range("A1").Activate
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range("AD2:AD216892"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _
        255, 0)
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add key:=Range( _
        "A2:A216892"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:AX216892")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[Joe4]

So I just replace what I posted with this?

Yes

 

[Dazzawm]

Yes

Thanks a lot.