Macro to sort Data

[howard]

I have written code to sort data in Col F. The macro works well, except if therte is only one row of data. I would like the code amended, so that if there is only 1 row of data from row 6 onwards (A6:F6), the macro must exit

Your assistance will be most appreciated


Sub Sort_Ageing()
Dim Lr As Long
Lr = Cells(Rows.Count, "F").End(xlUp).Row
With Range("F6:F" & Lr)
.Sort Key1:=Range("F6"), Order1:=xlAscending
End With
End Sub

 

[hiker95]

howard,


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Sub Sort_Ageing()
Dim Lr As Long
Lr = Cells(Rows.Count, "F").End(xlUp).Row
If Lr > 7 Then
  With Range("F6:F" & Lr)
    .Sort Key1:=Range("F6"), Order1:=xlAscending
  End With
End If
End Sub

 

[RSXchin]

add this

if Lr =< 6 then exit sub

 

[howard]

Hi Guys

Thanks for the help,much appreciated

 

[RSXchin]

just for my own ego.... which did you go with?