Segue o comando para contornar esse problema e deixar sempre a célula selecionada no topo da tela.
Experimentem o comando na janela de verificação imediata do VBA para ver a diferença.
;-)
range("Z200").Select
Application.Goto Reference:=Worksheets("plan1").Range("Z200"), scroll:=True