Ajout récupération données dans VBA

Bonsoir,

J'utilise un code simple de copie de valeurs:

Sub Clic()
Dim B As Long, O As Integer
[CM1] = 0
Randomize
Application.Calculation = xlCalculationManual
B = 0
While B < 100
Application.Calculate
B = B + 1
If [CM3] > O Then
Range("U5:AD5").Copy
Range("U2").PasteSpecial Paste:=xlPasteValues
O = [CM3]: [CM1] = O
Randomize
[A1].Select
End If

'code à rajouter

Wend
End Sub

Je voudrais récupérer les 5 précédentes valeurs de la colonne précédant un 4 ou un 5 (colorié en jaune dans mon tableau) à partir de CR1.
J'ai mis un premier exemple pour la série en cours.

Le Do While va créer des nouvelles séries avec d'autres valeurs en colonne CM, je voudrais qu'elles s'ajoutent en CR à la queue-leu leu.
Je joins l'exemple. Le nombre de valeurs en CM est autour de 800 lignes (le nombre de 4 ou de 5 est variable dans la colonne suivant la série)

merci de votre aide car je n'y parviens pas.

Bonne soirée