Step/Loop Macro Help

[Learn&Prosper]

I am a complete novice at Excel macros and only really record macros.

I just want a simple macro to select sell A1 in say Sheet1 and then if it is empty to Stop and if it not empty to go down one cell (offset down 1 row) to A2 and continue that process until it finds an empty cell (A3, A4, etc)

Please help me.

Thanks.

 

[njimack]

With Sheets("Sheet1").
If Len(.Range("A1")) > 0 then
Sheets("Sheet1").Range("A1").End(xlDown).Select
Else
.Range("A1").Select
End If
End With

 

[njimack]

Ignore previous post - this won't work if A1 contains a value but A2 is blank. Assuming you have no gaps in your data, the below would work:
Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1).Select

 

[Learn&Prosper]

Thanks very much njimack
That was simple - shows I know very little - I thought you needed to write a loop or something.

One more question if I may - if I want to copy a range that starts with A1 and ends with the last non-empty cell how to I write that?

Thanks.

 

[Learn&Prosper]

Thanks- I just saw your 2nd post and was going to mention that as I just tested it.
If you can please help me with my 2nd question which is also fairly simply but yet beyond me that would be great.

Thanks.

 

[njimack]

One more question if I may - if I want to copy a range that starts with A1 and ends with the last non-empty cell how to I write that?

You haven't said what you want to do after you've copied it. The below line of code will copy the range.

Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Copy