I am using the statments below to select a Range. What I need to do is keep
the current range and Add 1 Row to the current range.

Range(Cells(9, 6), Cells(9, colx + 6)).Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Resize(Selection.Rows.Count + 1).Select

Though you rarely need to select a range in Excel to work with it.

HTH,
Bernie
MS Excel MVP


"pokdbz" <(E-Mail Removed)> wrote in message
newsF464E7B-273E-4BB1-B4AA-(E-Mail Removed)...
>I am using the statments below to select a Range. What I need to do is keep
> the current range and Add 1 Row to the current range.
>
> Range(Cells(9, 6), Cells(9, colx + 6)).Select
> Range(Selection, Selection.End(xlDown)).Select