Shift Key Down Arrow

1:
Does a code exist to do Shift Key_Arrow Right, Arrow Down and then select that range to Copy?

I know the arrows codes but was told by someone no code can ever exist for a Shift Key.

I need to select a range after a "Search For" but the Range is not determined by the actual Cell ranges.

My Code for Arrow keys are:


'Selection.Offset(0, 1).Select '*Right*
'Selection.Offset(0, -1).Select '*Left*
'Selection.Offset(-1, 0).Select '*Up*
'Selection.Offset(1, 0).Select '*Down*
'Selection.Offset(3, 0).Select '*Down * 3 Cells

2:
What is the macro code to insert more than 1 row ?

The code I use to insert 1 Row is :


Selection.EntireRow.Insert

Sometimes I need to insert 25 rows.