设置重复动作。如果是循环或Do或？陈述

'我需要在列之间重复复制和粘贴过程，直到计数器'=键页、“book”单元格或从第1行读取，如果第1行#=键“book”#

'下一列（页）应为上一个副本/粘贴列的3列

“PicPg”B2副本至“PrntPg”B2E2至E2等

**这是我第一次在任何论坛上寻求帮助。请原谅我的无知。我会尽力回答任何问题。提前感谢您的时间和帮助！

我可以共享工作簿，只是不知道如何共享。

子创建PrintPage（）

With Worksheets("PicPg").Cells(2, 2)
    .Copy
    Sheets("PrntPg").Pictures.Paste(Link:=True).Select

    With Worksheets("PrntPg").Cells(2, 5)
        .Select
   
        Worksheets("PicPg").Cells(2, 5).Copy
        Sheets("PrntPg").Pictures.Paste(Link:=True).Select
     
    End With
End With
    
           
    

末端接头

“为了我”，我还没有弄清楚。我一直在努力让它继续重复。。。。我试着玩我的。。。我觉得这句话似乎很管用，现在要让它继续流传下去这是我研究的第三天，尝试了很多方法。。。我只能走到这一步（这比我开始的时候漂亮得多）。