Thanks all, but I could really do with a macro if someone could oblige. Thanks
Try this in a copy of your workbook.
<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> mySort()<br> <SPAN style="color:#00007F">Dim</SPAN> nc <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, lr <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br> <br> Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br> lr = Cells.Find(What:="*", After:=Cells(1, 1), LookIn:=xlValues, _<br> SearchOrder:=xlByRows, SearchDirection:=xlPrevious, SearchFormat:=False).Row<br> nc = Cells.Find(What:="*", After:=Cells(1, 1), LookIn:=xlValues, _<br> SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, SearchFormat:=False).Column + 1<br> <SPAN style="color:#00007F">With</SPAN> Cells(1, nc).Resize(lr)<br> .Formula = "=IF(COUNTIF(AD1,""*Leads*""),ROW(),"""")"<br> .Value = .Value<br> Range("A1").Resize(lr, nc).Sort Key1:=Cells(2, 3), Order1:=xlAscending, _<br> Key2:=Cells(2, nc), Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, _<br> Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal<br> .ClearContents<br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br> Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>