実行時エラー '1004'テーブルにActiveSheet.Pasteが失敗しました

Question

こんにちは、私はVBAとstackoverflowを初めて使用しています。

私のプログラムは単にTable1を選択し、それをTable2の最後にコピーします。コードは以下の通りです。

Sub c_p() 



    Application.Goto Reference:="Table1" 
    Selection.Copy 
    Application.Goto Reference:="Table2" 
    Selection.End(xlToRight).Select 
    Selection.End(xlDown).Select 
    Selection.ListObject.ListRows.Add AlwaysInsert:=False 
    ActiveSheet.Paste 


End Sub 

私はプログラムを実行すると、 "ファイル名を指定して実行時エラー '1004'" を提供します。この行でエラー：

ActiveSheet.Paste 

私はそこにこれについて移動するためのより良い方法が選択を使用するよりもあり、それらは私には興味深いものですしながら、私はまた、問題の原因を知りたいのことを承知しています。

ありがとうございました。

Answer 1

データをコピーした後、問題が「Selection.ListObject.ListRows.Add AlwaysInsert：= False」であるように見えます。それは、システムにコピーされたデータを「忘れる」ように思われる。変更内容は助けなかった -

これは

Sub c_p() 
    Application.Goto Reference:="Table1" 
    Selection.Copy 
    Application.Goto Reference:="Table2" 
    Selection.ListObject.ListRows.Add AlwaysInsert:=False 
    Application.Goto Reference:="Table2" 
    Selection.End(xlToRight).Select 
    Selection.End(xlDown).Select 
    ActiveSheet.Paste 
End Sub 

Answer 2

コードについて

..あなたは、あなたは、システムがコピーされたデータを忘れてしまったこと正しかった

をたくさんありがとう適切な解決策かもしれません忘れられた情報ではあるが、いくつかの修正を加えればそれはうまくいく。ここ

が最終的なコードです：

Sub c_p2() 

    Application.Goto Reference:="Table2" 
    Selection.ListObject.ListRows.Add AlwaysInsert:=False 
    Application.Goto Reference:="Table1" 
    Selection.Copy 
    Application.Goto Reference:="Table2" 
    Selection.End(xlDown).Select 
    Selection.End(xlDown).Select 
    ActiveSheet.Paste 
End Sub