スキルアップ・問題解決なら、モーグにおまかせ！

●詳細●
サンプルマクロを実行すると、セルD6がアクティブになり、画面の左上端に表示されます。

●準備●
標準モジュールに次のマクロを作成してください。

Sub Sample()
    Dim r As Integer
    Dim c As Integer
    
    Range("D6").Select
    MsgBox "アクティブセルD6を画面左上端に表示します"
    
    r = ActiveCell.Row
    c = ActiveCell.Column
    With ActiveWindow
        .ScrollRow = r
        .ScrollColumn = c
    End With
    
End Sub

●補足説明●
Rowプロパティは、対象セル範囲の最初の領域の先頭行の番号を返します。
Columnプロパティは、指定された対象セル範囲の最初の領域で、最初の列の番号を返します。
ScrollRowプロパティは、ウィンドウ枠内またはウィンドウ内で上端に表示される行の番号の値を設定します。
ScrollColumnプロパティは、ウィンドウ枠内またはウィンドウ内で左端に表示される列の番号の値を設定します。