Last cell in column

[Don A]

I wrote a macro that does this as below:
' EndDown Macro
Sub EndDown()
If Selection Is Nothing Then Exit Sub
State = IsEmpty(ActiveCell)
For rw = ActiveCell.Row + 1 To Application.Rows.Count - 1
If IsEmpty(Cells(rw, ActiveCell.Column)) <> State Then
Exit For
Next rw
ActiveWindow.ScrollRow = rw
Cells(rw, ActiveCell.Column).Activate
End Sub