Is seems like replacing my original line of =
Application.Goto Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn), 1
with the below solves the issue.
Application.Goto Reference:=ws1.Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn)