Coinvert from Yellow Range to Green Range

Hi
Try

Sub test()
    Dim a, b As Variant
    Dim i, l As Long
    l = 1
    a = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
    ReDim b(1 To UBound(a), 1 To 3)
    For i = l To UBound(a) / 3 - 1
        If a(l, 1) <> a(l + 1, 1) Then
            b(l, 1) = a(l, 1): b(l, 2) = a(l + 1, 1): b(l, 3) = a(l + 2, 1)
            l = l + 3
        Else
            l = l + 1
            b(l, 1) = a(l, 1): b(l, 2) = a(l + 1, 1): b(l, 3) = a(l + 2, 1)
            l = l + 3
        End If
    Next
    Cells(1, 7).Resize(UBound(b, 1), UBound(b, 2)) = b
End Sub