VBA копировать и вставлять из неправильных столбцов

Question

Я только начал изучать vba / macro, чтобы упростить некоторые задачи.

Приведенный ниже код работает нормально, но мне интересно, можно ли его упростить, добавив несколько 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 раз.и это совсем неэффективно.