Need to delete rows relative to selection

Hello Suzanne,

If I understand your post correcrtly, you want to select a cell and have that cell's row and the next 213 rows below it deleted. It appaears that in your code your are deleteing the entire row (all the columns). This code sample illustrates how to do that in a relative way.

Addressing Relative to Active cell:
FirstRow = ActiveCell.Row
LastRow = 213 + FirstRow
Addx = "$" & FirstRow & ":$" & LastRow

ActiveSheet.Range(Addx).Delete (xlShiftUp)

Sincerely,
Leith Ross