Excel 从电源查询中读取值，单元格中的记录向下移动上一条记录

我有三张纸的文件：

• 第一个（API_调用）：每分钟从Web下载数据更新自身的Power Query。B列和C列中写入的新数据使用function=VALUE（[@[Column1.price]]这是该项目唯一正确运行的表
• 第二（数据库）：每分钟使用函数Application.OnTime从API_调用表C列读取值，代码如下： '''

代码：

Sub CopyValues()
    Worksheets("API_Call").Range("C2").Copy
    Worksheets("Database").Range("A5").PasteSpecial xlPasteValues
    Selection.Insert Shift:=xlDown
    'blah/blah/blah (repeats itself for each row on API_Call transferring it to columns on DATABASE     sheet)*
    Worksheets("API_Call").Range("C36").Copy
    Worksheets("Database").Range("AG5").PasteSpecial xlPasteValues
    Selection.Insert Shift:=xlDown
    Application.OnTime Now + TimeValue("00:01:00"), "CopyValues"
End Sub

• 第三（分析）：保留用于根据数据库表中的值进行计算

我的问题：

我已将上述复制/粘贴/重复代码放入模块中。 这有点可行，但：

• 复制/粘贴不是每分钟都发生，而是更频繁（我已经计时）
• 仅当数据库工作表处于打开状态且处于活动状态时，数据库工作表才能正常工作（上面有警告）。例如，如果分析处于打开状态，它将复制第5行中的粘贴，但不会向下移动，并将在下一个周期覆盖上一个数据
• 任何引用数据库中的值的公式都不会保留范围。例如（=数据库！A6数据库！A7）将在下次更新时将值从A6和A7更改为A6和A8，并在下一行不断更改，从而得到相同的结果，而不是更新的结果

目标：

• 每分钟或在API_调用表更新后，让数据从数据库第5行向下流动
• 数据库更新后-使用固定范围（例如A6到A10）重新计算分析表中的值，因为数据将发生变化并向下移动

任何帮助都将受到感谢，因为我从未有过VBA方面的经验，迄今为止我所做的一切都是在过去的三天里学到的……在这次回顾中，我没有自大到声称我所做的任何事情都是正确的，无论以何种形式或形式……而纠正我的方法对我来说都是非常有价值的