With VBA

Range("_FilterDataBase").Offset(1,
0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete
Shift:=xlUp
ActiveSheet.ShowAllData

JB
http://boisgontierjacques.free.fr

On 27 sep, 04:36, Moon wrote:
When I need to delete some filtered rows, In excel 2003, I will filter the
items that need to delete follow by highlight all rows then select delete
rows will do.
However in excel 2007, the same step will delete the whole content even
though the unfiltered rows.

Pls help!