(現象)
追加クエリを使用する際、
空白セルに書式設定がされていたら、
そのセルは入力済みと判断する。
↓
書式設定がされていない行から入力を開始する。
↓
既存値と新規取得値(追加クエリの結果)に間が空いてしまう。
(対処法)
一旦セル全体の書式をクリアしてから追加クエリを実行する方が良い。
例)
'追加先のシートの書式をクリアする
Sheets("既存データ").Cells.ClearFormats
'追加クエリを実行する
myRs.Open "INSERT INTO [既存データ$] SELECT * FROM [追加データ$] ;", myCn