VBA

VBA 申し訳ございませんが行列操作がわかりません。 行数は一定ではありません。 ご意見をいただけませんか? (1) Sheet1そして、対象例A, Cは存在します。 ↓を実行するとエラーメッセージ"インディクスが有効範囲内にありません。"が表示されます。 理由が分かりません。 Worksheets("Sheet1").Range("A", "C").Copy (2) 変更前; (A列) 1 データ１ 2 3 データ２ 4 . . 変更後; (A列) 1 データ１ 2 データ１ 3 データ２ 4 データ２ . データ２ .　データ２ 行数は一定ではありません。 ThisWorkbook.SaveAs Filename:="c:\xxxxxxxxx.xls" Workbooks("xxxxxxxxx.xls").Worksheets("Sheet1").Range("A", "C").Paste ワークブックを別名保管して新たに作成して、同列に変更値を反映します。 そして、A列には直前のセル値を新しいワークブックに反映してすべてのセルを埋めたいのですが定義が分かりません。 (3) 行数は一定ではありません。 最終行に行を追加したのですが定義が分かりません。 Application.CutCopyMode = False Range(?????).Insert (4) 変更前; (C列) 1 データ３ 2　データ３ 3 データ３ 4　データ３ .　データ３ .　データ３ 変更後; (C列) 1 データ３ 2 データ３ 3 データ３ 4 データ３ .　データ３ .　データ３ . データ２ 行数は一定ではありません。 (3)で追加した最終行のセルCにはA列の直前値を挿入したいのですが定義が分かりません。 (5) 行数は一定ではありません。 D列を新しいワークブックに作成します。 (D列) 1 ● 2 ● 3 ● 4 ● . ● . ▲ 追加した最終行の直前まではすべて●、最終行のセルには▲を挿入したいのですが定義が分かりません。 Application.CutCopyMode = False Range("D").Insert ?????