実行時エラー1004、操作を完了できません

Question

VBAを使用して1つのテーブルの内容をコピーし、別のテーブルに貼り付けます。私が使用するコードは次のとおりです。

Sub Get_Original_OutPutDataTable() 
    Application.DisplayAlerts = False 
    Worksheets("Input&Map").Activate 
    Range("InitialMap").Select 
    Selection.Delete 
    Worksheets("OutPutDataTable").Activate 
    Range("OutPutDataTable").Select 
    Selection.Copy 
    Worksheets("Input&Map").Activate 
    Range("InitialMap").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    Application.DisplayAlerts = True 
End Sub 

"InitialMap"と"OutPutDataTable"の両方がパワークエリによって作成された2つのテーブルです。

場合によっては、上のコードが正常に動作します。しかし、最初に"InitialMap"を更新すると、エラーが発生します。

または別のエラー

Iが第2のエラーに遭遇した場合、コンテンツが次の行に貼り付けられます。たとえば、"InitialMap"がセルA4から始まる場合（行4にヘッダが含まれ、表の内容が行5から始まる場合）、コンテンツはセルA6に貼り付けられます。 誰でも知っていますか？

おかげ

Answer 1

私はパワークエリを使用していない、普通のエクセル表として作成したものを使用してInitialMapテーブルを置き換えます。

Excelは、ユーザーがPQまたはデータを更新したときに更新内容が消去されるため、Power Queryから供給されたテーブルの編集を防止します。