last cell in column with empty cells

[excellence]

Hi,
How do I change this macro to offset the last cell that has contents by 1 row, EVEN IF some cells in the column may be blank.

So, if column A was:
a1=1
a2=
a3=x
a4=t
a5=re

It would choose a6


Sub lastcell()
Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End Sub

Thanks

 

[rollis13]

If there is no other data after A5 use:

Range("A" & Rows.Count).End(xlUp).Select

 

[gordsky]

range("A" & (rows.count).end(xlup).row)+1)

 

[excellence]

If there is no other data after A5 use:

Range("A" & Rows.Count).End(xlUp)+1.Select

there may be data anywhere in A and many may be blank

 

[rollis13]

As per the example the last data is in A5 (could be wherever). Anyway I had messed up my post #2, now I got it right but you could use only one line of code, like this:

Sub lastcell()
    Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
End Sub

 

[excellence]

As per the example the last data is in A5 (could be wherever). Anyway I had messed up my post #2, now I got it right but you could use only one line of code, like this:

Sub lastcell()
    Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
End Sub

Simply perfect
Thanks

 

[rollis13]

Thanks for the positive feedback, glad having been of some help.