如何让循环移动到下一个范围？

Question

嗨，你们能帮我做一个循环吗？

我想让以下代码针对相同的范围但针对不同的行运行，直到行中没有更多数据。

所以我想让 VBA 复制（“P7，T7”），将其粘贴到（“A5”）复制（“B2”）并将其粘贴到（“X7”） - 等等......直到那里该行中没有更多数据。

Range("P6,T6").Select 

Range("T6").Activate 

Selection.Copy 

Range("A5").Select 

ActiveSheet.Paste 

Range("B2").Select 

Application.CutCopyMode = False 

Selection.Copy 

Range("X6").Select 

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 

    :=False, Transpose:=False 

如果你们能帮助我，那就太好了！