Does this idea help?

Sub cleanuprows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
If Left(Cells(i, 1), 6) = "Report" Or _
InStr(Cells(i, 1), "PAGE") 0 Or _
InStr(Cells(i, 1), "==") 0 Then
Rows(i).Delete
End If
Next i
End Sub

--
Don Guillett
SalesAid Software

"Rashid" wrote in message .. .
Hi,
I am downloading data from AS/400 in text format on a daily basis and it is very pains taking to clean the headers as it is over 5000 lines.

Report xyz SUMMARY
2/22/06 PAGE
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Fc Cls No Type No UM UOM Cur Cost QTY
================================================== =====================================
TT GP 02684 B 10000 xx xxx xxxxxxxxxx x CA CA CAD 26.02000 1256.000
TT GP 02685 B 10000 xx xxx xxxxxxxxxx x CA CA CAD 23.78000 540.000

Can any one suggest a macro which can do the following

Search line by line for words like "Report", "Page", " =========" etc etc and del the entire row (i meam every thing in that row)
In the end sort the data by column "A"

Thanks,

Rashid