IF [condition met] THEN copy paste then repeat again VBA code

[RRM]

Good day,

I have code that looks at the values generated from a random generator and once a condition is met then it stops. For example, it counts the numbers generated (for example 1, 2, 3) in range P1:P3 and once the condition value set in sheet1, A1 is met > 2, then it stops.

I would like to go further by running more iterations. That is once condition is met in sheet 1, A1 then it copy and paste values sheet 1, P1:P3 into sheet2, A1:A3 then goes back to sheet 1 and re-runs the below code. I would like to do this 10 times. Each time condition is met then it copy and paste value into sheet2, in next available column, B1:B3 then C1:C3 until sheet2, J1:J3 is populated with a range then END. Is there a nested DO UNTIL LOOP, IF THEN to use? I have no clue and appreciate guidance.

Do
 Sheet1.Range("A1").Formula = "=COUNTIF($P$1:$P$3,0)"
 Loop Until Sheet1.Range("A1").Value > 2
End Sub

 

[Fluff]

Duplicate copy and paste values with offset in columns vba code

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Especially considering you had a reply which you seem to have ignored.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).