cells(rows.count,1).End(xlup) _
.offset(1,0).Resize(100).Entirerow.Delete

--
Regards,
Tom Ogilvy

"Pat" wrote in message
...
I need a macro that will find the last row in colA containing data and
then
delete the next 100 empty rows.
Thank you if you can help.
Pat