Todd,

Try:

Cells(i1, "N").Resize(,4).Delete Shift:=xlShiftUp

John

"Todd Huttenstine" wrote in message
...
I have the following code that deletes a certain cell...

Cells(i1, "N").Delete Shift:=xlShiftUp

I would like it to also delete the next 4 cells to the
right using the same delete method? I would assume I
would have to use an offset method. Can anyone please
tell me how to do this?

Thank you


Todd Huttenstine