Sub Макрос4()
 Dim iCel As Range, myRng As Range, x As Long, y As Long
  ' здесь цвета
  x =  35 
  y =  36 
  With ActiveSheet
       Set myRng = .Range("A1:A" & .Cells.Find("*", , , xlWhole, xlByRows, xlPrevious).Row)
  End With
  
    For Each iCel In myRng
        
        If iCel.Interior.ColorIndex = x Then
          With iCel
           .Value = .End(xlToRight).Value
           .End(xlToRight).ClearContents
          End With
        End If
        
        If iCel.Interior.ColorIndex = y Then
          With iCel.Offset(,  1 )
           .Value = .End(xlToRight).Value
           .End(xlToRight).ClearContents
          End With
        End If
        
    Next iCel
End Sub