这可能是一个简单的问题，但我对 VBA 知之甚少。
我有数据必须输入到具有以下布局的表中：
我需要将其存储在具有此布局的另一个工作表中：
我正在尝试创建一个可以完成三件事的宏：
1）将第一个表中的内容复制到另一个工作表中的列
2）清除原始表数据（但不清除表头q、w、e等）
3) 增加列引用，以便下次运行宏时，它将数据复制到第二个表的 C 列，第三次复制到 D 列，依此类推。
这是我尝试过的：
第 1 行： Sheets("sheet2").Range("B1").Value = Sheets("sheet1").Range("A5").Value
第 2 行：Sheets("sheet1").Range("A5:D6").ClearContents
为了完成 3），我必须在代码中手动将“A5”更改为“B5”，并为每个单元格（其中大约有 60 个）这样做。有没有办法自动化这个？任何帮助是极大的赞赏。