VBA Shift+Up arrow after CTRL+Shift+Down arrow

[Will85]

After using CTRL+SHIFT+Down

I need to use SHIFT+UP, SHIFT+UP

In VBA I am using

Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.Offset(-2, 0)).Select

I thought this would work, but it adds two rows to the top of the range, when I really need it to remove two rows from the bottom of the range

 

[Will85]

Figured it out

Range(Selection, Selection.End(xlDown).Offset(-2, 0)).Select