アクティブセルを変更せずに、表示されるシートの位置を変更する方法です
選択セルがシートの表示範囲外になる場合もあります

選択セルを同時に左上に変更する場合には Application.Goto メソッドを使用します

Windows(1).ScrollRow = 1
Windows(1).ScrollColumn = 1