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