sort of my cells in a workpage

[hendrikbez]

I have this as a micro

Sub sort1()
'
' sort1 Macro
'

'
    Range("A4:F18").Select
    ActiveWorkbook.Worksheets("All").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("All").sort.SortFields.Add Key:=Range("F4:F18"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("All").sort.SortFields.Add Key:=Range("A4:A18"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("All").sort
        .SetRange Range("A4:F18")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

But the problem is that every day the row can be more or less that what I have got here, how can I make it so that it will now at what row to stop
With a macro of vb.

 

[Fluff]

Hia
try this

Sub sort1()
'
' sort1 Macro
'
    Dim UsdRws As Long

    UsdRws = Range("A" & Rows.Count).End(xlUp).Row
    Range("A4:F" & UsdRws).Select
    ActiveWorkbook.Worksheets("All").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("All").Sort.SortFields.Add Key:=Range("F4:F" & UsdRws), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("All").Sort.SortFields.Add Key:=Range("A4:A" & UsdRws), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("All").Sort
        .SetRange Range("A4:F" & UsdRws)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[hendrikbez]

Fluff

Thank you, it is working

 

[Fluff]

Glad to help & thanks for the feedback