1の行を固定した上でVBAを用いて日付順に自動並べ替え

質問させてください。
2009年のコチラの質問(https://oshiete.goo.ne.jp/qa/4666858.html)を参考にし日付順に自動で並べ替えられるようにしたのですが、見出しとして使用したい1の行も自動で並べ替えられてしまい移動してしまいます。
表見出しの固定にチェックを入れてもシート自体にコードが入っているため適用されませんでした。

A列に入力した日付順に入力が自動で並び替えたい+1の行にある見出しは固定したい(=2の行から下を自動並び替えの対象にしたい)

この場合はVBAはどのように調整すべきでしょうか？
またVBA以外でも対処できる方法がございましたらご教示願います。
よろしくお願い致します。

No.2 回答者： fujillin 回答日時： 2022/06/06 15:24

No1です

連投失礼。

ヘッダーありのオプションを利用すれば、参考コードのままでもいけますね。
　Header:=xlYes
を追記することで、1行目はヘッダーとみなされますので、ソートの対象から外されます。
https://docs.microsoft.com/ja-jp/office/vba/api/ …

No.1 回答者： fujillin 回答日時： 2022/06/06 15:20

こんにちは

＞2の行から下を自動並び替えの対象にしたい
ソートの対象セル範囲を2行目以降にすればよいです。

ご提示の参考コードでは
＞Cells.Select
となっているので、シート全体を選択してしまっていることになります。
（＝当然ながら、1行目も含まれている）
これを必要な範囲に指定すれば宜しいでしょう。

なお、ソートするだけであれば、わざわざ「Select」で「選択」する必要はありません。
範囲をRangeオブジェクトに代入して、その範囲に対してSortメソッドを使用すれば、お望みのようになるものと思います。