J
JE McGimpsey
If you really want to delete the rows, one way:
Range(ActiveCell.Row & ":3000").Delete
If you just want to delete the cells in the range from ActiveCell to
U3000, one way:
Range(ActiveCell, Cells(3000,21)).Delete Shift:=xlUp
Range(ActiveCell.Row & ":3000").Delete
If you just want to delete the cells in the range from ActiveCell to
U3000, one way:
Range(ActiveCell, Cells(3000,21)).Delete Shift:=xlUp