Go to last row with a value

[ipbr21054]

Evening all,

I have put in place the code shown below.

Upon a button press i would like cell A of the last row which has values in to be selected.
Currently the code works but selects the row after what is required each time.

Change x1Up does nothing for me.

Can you advise thanks.

Private Sub BottomOfPage_Click()    Application.Goto Sheets("DATABASE").Range("A" & Rows.Count).End(xlUp).Offset(1, 0), True
    ActiveWindow.SmallScroll UP:=10
End Sub

 

[Fluff]

Remove the .offset from the range

 

[ipbr21054]

Great,

Thanks very much,all ok now

 

[Fluff]

You're welcome