Top of the screen

To make the activecell be at the top of the screen & to the left on the screen try this.

Sub TopLeft()
ActiveCell.Select
With ActiveWindow
.ScrollColumn = ActiveCell.Column
.ScrollRow = ActiveCell.Row
End With
End Sub