Hi Andrew

This will sort your data based on the populated data in Column F.
Change F to which ever row contains the most relevant data.

Take care

Marcus

Sub Sortme()
Dim N As Long

N = Range("F" & Rows.Count).End(xlUp).Row
Worksheets("sheet2").Range("A2:F" & N).Select

'Sort part add if needed.
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending,
Header:=xlGuess, OrderCustom:=1

End Sub