vba从不规则列复制和粘贴

Question

我刚刚开始学习vba /宏来简化某些任务。

下面的代码可以正常工作，但是我想知道是否可以通过添加一些For循环或编辑某些部分来简化它。

问题：
要从工作簿1复制，然后粘贴到工作簿2。 有违规行为。例如，Workbook1-Column3 C将粘贴到W2C5，然后将W1C6粘贴到W2C6。等等

这是我当前的宏/ vba代码

Sub copypaste_openPO()

    Sheets("Open PO").Select
    Windows("Open Purchase Orders.xlsx").Activate
    Range("E5:F9999").Select
    Selection.Copy
    Windows("Action Tool.xlsm").Activate
    Range("B2").Select
    ActiveSheet.Paste

    Windows("Open Purchase Orders.xlsx").Activate
    Application.CutCopyMode = False
    Range("H5:P9999").Select
    Selection.Copy
    Windows("Action Tool.xlsm").Activate
    Range("D2").Select
    ActiveSheet.Paste

此操作进行了大约20多次。而且效率很低。