Set WshD = ThisWorkBook.WorkSheets("index")
Set RngD = WshD.Range("M65536".End(xlUP)
RngD.Offset(0,-12).Resize(11,12).Delete Shift:=xlShiftUp

--
Regards,
Tom Ogilvy


"RW" wrote in message
...
Here's the code

Set WshD = ThisWorkBook.WorkSheets("index")
Set RngD = WshD.Range("M65536".End(xlUP)
RngD = RngD.Offset(0,-12).Resize(11,12).Delete

I've also used Select in place of Delete above and then added
Selection.Delete on the next line.
I used the Offset before resize since I read in this forum that Resize
doesn't like negative values.

How do I delete the newly selected range?