マクロ 最終行のセルに移動したとき

いつもお世話になります。
WIN10 エクセル2016です。

下記のコードですと　「図1」　の様になりますがこれを、
「図2」　のようにしたいのですが可能でしょうか

もし可能ならば　「図2」　のようにするにはどんな構文を追加すればよいか
ご指導いただけませんか。


図1のコードです。
Sub Sample3()
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub

質問者からの補足コメント

• 追加します。
  A列は日付を　1～12月が入り月によって行数は変化します。
  現在は　A750 ですが必ずしも同じではありません
  
  最終行のマクロを実行したとき必ず　A3　がアクティブセルになると理想的です。
  
  ※図1ですとほぼ真ん中になるのが見にくいのです。

    補足日時：2018/10/15 13:27

No.1 ベストアンサー 回答者： poco_2 回答日時： 2018/10/15 13:29

Sub Sample3()

ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveWindow.ScrollRow = ActiveCell.Row - 1
End Sub

こういうことでしょうか？

この回答へのお礼

ありがとうございます。
うまくできました。
お陰様で。

先日もお世話になりました。

お礼日時：2018/10/15 13:38

No.2 回答者： fujillin 回答日時： 2018/10/15 13:33

こんにちは

スクロールを制御したいという意味でしょうか？
　ActiveWindow.ScrollRow = Selection.Row - 1
を追加してみては？