A single column or the same size as the original selection


Dim TopCell As Range
Dim BotCell As Range

With ActiveSheet
Set TopCell = ActiveCell
Set BotCell = .Cells(.Rows.Count, TopCell.Column).End(xlUp)
'one column
'.Range(TopCell, BotCell).Select
'or maybe multiple columns
'.Range(TopCell, BotCell).Resize(, Selection.Columns.Count).Select
End With




Avi wrote:

Hello,

Looking for a macro that selects a range from a portion of a row which is
the Active Selection to the last non blank row bellow in the same columns as
the Active Selection. The address of the current selection should be
determined by VBA

Thanks a lot

Avi

--

Dave Peterson