Deleting a Row from a selected cell

**AndyE** · 08-01-2013, 03:33 AM

I have the following code to delete a Row from cell D4 and everything to its right.

Can this code be simplified?

    Range("D4").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete shift:=xlUp

**:) Sixthsense :)** · 08-01-2013, 03:41 AM

Range(Range("D4"), Range("D4").End(xlToRight)).Delete shift:=xlUp

**AndyE** · 08-01-2013, 03:57 AM

lovely...I was nearly there

**:) Sixthsense :)** · 08-01-2013, 03:59 AM

Yes... exactly and and thanks for the feedback

Re: Deleting a Row from a selected cell