Copy paste depending on cells property

Hi everyone,

I would need some help with the following macro (module 15 in file attached).

The codes already written alows me to move from one cell to another to the right (2 cells to the right), within the chart.

The goal would be when the selected cell comes accross a "0" (for instance on cell M28), it copies paste it on cell+2 (to the right) in AM29.
And when it comes across a red interior cell (AK29 for instance) it copies it on cell+2 (to the right), in I26


Thanks again for your help
(cannot attached file for some reason, will try later on)

Sub split()


    For Each rw In Range("D14:AZ76").Rows
        If Cells(rw.Row, "B").Value >= Date Then
            For Each cll In Intersect(rw, Range("E:E,G:G,I:I,K:K,M:M,O:O,Q:Q,S:S,U:U,W:W,Y:Y,AA:AA,AC:AC,AE:AE,AG:AG,AI:AI,AK:AK,AM:AM,AO:AO,AQ:AQ,AS:AS,AU:AU,AW:AW,AY:AY")).Cells
                If Application.Count(cll.Offset(, -1)) = 1 Then
                    cll.Select
                    
                 
                     End If
                cll.Select


      
               Next cll
          End If
          Next rw
          
End Sub