Hi Arvi,

Try:
'=============
Public Sub Tester005()
Dim rng As Range
Dim FRow As Long
Dim LRow As Long

FRow = Selection.Row
LRow = Cells(Rows.Count, Selection.Column).End(xlUp).Row

Set rng = Selection.Resize(LRow - FRow + 1)
rng.Select

End Sub
'<<=============


---
Regards,
Norman


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