delete rows not matching certain criteria

[sanketgroup]

Is there anyway way to delete those rows not matching certain criteria ?
For example, required rows in Column A - always have either xxxxx-x formatted Account# or Date or word begins with "Total :" anything other then this- those rows are not useful and i want to automatically delete all those unwanted rows.
Delete the the rows which has value other then xxxxx-x formatted account# or date or word "Total :"
[Account# could be xxxxx-x or xxxx-x or xxx-x or xx-x or x-x means 5digit-1digit or 4digit-1digit or 3digit-1digit or 2digit-1digit or 1digit-1digit
Data is huge so cannot do by auto filter. Need Macro.
Thanx a lot

====INPUT====
Column A
56981-3
1459-3
10/25/2010
69655-9
Apple
Orange
Total:
01/02/2009
Paint1
987-1
Yellow
Total:

====OUTPUT===
Column A
56981-3
1459-3
10/25/2010
69655-9
Total:
01/02/2009
987-1
Total:

[MaczaQ]

Hello,

Please try this code, I hope it helps:

Please Login or Register  to view this content.