Select Rows With Value

[IoanZ]

Hello to everyone
I have this situation
In Range(A1:A6) i put some values.

My activecell is A7.

I want to know which is vba code to select Cells from the top rows of activecell(including activecell) until i find a blank row.

As result Range(A3:A7) will be selected.

Thank's a lot

Row/Coll	A	B	C	D
1	65
2
3	35
4	60
5	85
6	21
7
8
9

<tbody>
</tbody>

 

[IoanZ]

Resolved With this
Sub AutoSUM()
Range("A" & ActiveCell.Row).Select ' activecell below the range of numbers
Range("B" & ActiveCell.Row).Value = "x"
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Cells(Range("B150").End(xlUp).Row, 1) = Application.WorksheetFunction.Sum(Selection)
Cells(Range("B150").End(xlUp).Row, 2).ClearContents
End Sub

 

[gallen]

This will do as you ask

Range(ActiveCell, ActiveCell.Offset(-1).End(xlUp)).Select

 

[IoanZ]

yes works perfectly

Thank's a lot