Delete Last 4 Rows within Selection

[norts55]

Hello,
I need a macro to delete the last four rows of my current selection. I will try to explain...

If my selected range is Range("E476:O570"), Then do...
Rows("566:570").Select
Selection.Delete Shift:=xlUp

The selection of the range does not have to be part of the macro as I will already have the range selected.

This seems quite simple for the experts on here, I just hope I am explaining it well enough.

Thanks in advance to anyone will to help.

 

[Fluff]

How about

With Selection
   .Offset(.Rows.Count - 4).Resize(4).EntireRow.Delete
End With

 

[norts55]

This works perfectly. Thank you very much!

 

[Fluff]

You're welcome & thanks for the feedback.