Dim rng as Range, rng1 as Range
set rng = columns(10).find("ZZZZZCount", After:=Range("J1"), _
Lookat:=xlPart)
if not rng is nothing then
set rng1 = Range(rng,cells(rows.count,"J")).EntireRow
rng1.Delete
end if

--
Regards,
Tom Ogilvy


"Lost in Alabama" wrote in message
...
I need help creating a macro to find "ZZZZZCount" in column J, then select
the Rows from the cell just found to the end of the sheet (R65000) and
delete. The cell location of "ZZZZZCount" will not be constant.

Thanks,


F G H J
Task Code Task ID Sub No. STSLN
JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA
JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA
JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA
JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA
JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA
JGDAAAA REPAIR AVENGER COMPOSITE PANEL 320 CHAA
JGDAAAA REPAIR AVENGER COMPOSITE PANEL 330 CIAA
100 ZZZZZCount
100 ZZZZZCount
100 ZZZZZCount
100 ZZZZZCount