After code is run i am unable to use keyboard arrows to move from selected cell

[ipbr21054]

Ive had this before but searching old posts i was unable to find the answer.

I use the following code to select last row with value in column A

My issue is once im taken there i wish to use keyboard arrow to move up a cell or two but nothing happens.
Its as if its locked to that cell ??

I need to then select the cell.
Before the code advise did something that allowed me to use the keyboard arrows to move.

Can you advise please.

Private Sub BottomOfPage_Click()
    Application.Goto Sheets("DATABASE").Range("A" & Rows.count).End(xlUp), True
    ActiveWindow.SmallScroll UP:=11
End Sub

 

[Skyybot]

No need for a Subroutine. Just hit CTR+FN+END then hit CTRL+HOME. Takes you to the first column of the last row. If your HOME and END key are not Function keys then I don't think you have to use FN.

 

[NoSparks]

The button you are clicking is retaining the focus.
Try this

Private Sub BottomOfPage_Click()
    Application.GoTo Sheets("DATABASE").Range("A" & Rows.Count).End(xlUp), True
    ActiveWindow.SmallScroll UP:=11
    ActiveCell.Select
End Sub

 

[ipbr21054]

@NoSparks that did the trick thanks.

In future if i find another i just need to add

ActiveCell.Select