How to Get Loop to move for the next range?

Question

I'd like to get the following code running for the same range but for different rows, until there is no more data in the rows.

So I'd like to get VBA to copy ("P7,T7"), paste it at ("A5") copy ("B2") and paste it at ("X7") - and so on... until there is no more data in the row.

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