ActiveSheet.UsedRange.Select

OR

'Last row filled in Column A
lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:H" & lngLastRow).Select


If this post helps click Yes
---------------
Jacob Skaria


"Partly Void" wrote:

Please advise syntax for the "Shift" command when selecting a block of data
where the columns are known but not the rows no's. ie a block from col A to
col H containg 66 rows.
Thanks