Open excel sheet at last row - 5

I'm using the following code to open worksheets in a spreadsheet used by a large number of people so that they don't have to trawl through row after row of data when opening the workbook.

Private Sub Worksheet_Activate()
Dim lr As Long, scrlrw As Long
    
    With ActiveSheet
        lr = .Range("A" & .Rows.Count).End(xlUp).Row
        scrlrw = IIf(lr > 10, lr - 10, 1)
        Application.Goto Reference:=.Range("A" & lr - 5)
        ActiveWindow.ScrollRow = scrlrw
    End With
     End Sub

With some of the sheets the lastrow -5 (the selected row) is in the middle of the screen. On some sheets it's the last visible row when then sheet is opened.

It seems to make no difference how many rows have been filled.

Is there a way to ensure that the selected row is shown as the top row in the window? (except where this is not possible as there are less that 5 rows of data.

For information, the top row (row 1) is a freeze pane with a row height of approx 45.

Thanks in advance.