vba - CopyFromRecordset(excel vba)を使用して「行のコピー」の代わりに「行の挿入」を実行する方法

Question

エクセルVBA初心者です。SQL Server 2005 から Excel ワークシートにテーブル値をコピーする必要があるという要件があります。上記の要件（以下にリスト）のコードをグーグルで作成しました。

この Excel シートには、凡例と日付を表示する一連の行が固定されています。これらの行は、データベース/テーブルの値が出力された後に表示される必要があります。.CopyFromRecordset を使用してレコードセットから Excel シートにレコードをコピーすると、凡例と日付を表示している行がデータベース/テーブルの値で上書きされます。行をコピーではなく挿入する方法を教えてください。または、上記を達成する方法はありますか。

- -コード - - - - - -

Sub GETSQLSERVERDATA()
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
Dim USERID As String
Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

USERID = Range("C1").Value 'Input form excel template.
Server_Name = "" 'Enter server name
Database_Name = "" 'Enter database name
User_ID = "" 'SQL server user id
Password = "" SQL server password

SQLStr = "SELECT END_DATE,PERIOD FROM PERIOD_MAP WHERE USERID='" + USERID + "'"

Set Cn = New ADODB.Connection
Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"  
rs.Open SQLStr, Cn, adOpenStatic

With Worksheets("Sheet1").Range("A2:D2") ' Enter your sheet name and range here
    .ClearContents
    .CopyFromRecordset rs
End With

rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub