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


[TABLE="width: 500"]
<tbody>[TR]
[TD]Row/Coll[/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]65[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]35[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]60[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]85[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]21[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]9[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[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