cLastRow = Cells(Rows.Count,"A").end(xlUp).Row
Range("A3:A" & clastrow).entirerow.delete

--

HTH

RP
(remove nothere from the email address if mailing direct)


"scrabtree23" wrote in message
...
I would like a VBA code to delete certain rows on a sheet.

If I use xldown it will go to the last row of data in a table. There is
more data on the sheet below this but there is a line that is skipped
between
the target table and the additional data. So, I want to select cell A:1,
then do an xldown to get to the last row in the target table. I then want
to
delete row 3:3 through the desired last row.

How?

Thanks