Descobri... Inserir a linha ActiveWindow.LargeScroll Down:=-1000 'Numero de PAGE UP, o sinal negativo significa que é para cima'

Desculpem a demora.. A linha Range("A1").Select eu já havia colocado, ele selecionar a celula A1, mas não sobe a tela até o topo, apenas se...