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" wrote in message
...
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