[COLOR=blue]Sub[/COLOR] test()
[COLOR=blue]Dim[/COLOR] t [COLOR=blue]As[/COLOR] Range
[COLOR=blue]Set[/COLOR] t = Cells.Find([I]"*"[/I], , , , , xlPrevious)
Range(Rows(t.Row + 1), Rows(Rows.Count)).EntireRow.[COLOR=blue]Delete[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]