A formátum alapján vizsgáltatom a másolandó cellákat.

Sub Keplet_Copy()
    usor = Range("C65536").End(xlUp).Row
    For sor = 2 To usor
        If Cells(sor, 2).Interior.ColorIndex = 36 Then
            Cells(sor, 2).Copy
            Cells(sor, 6).Select
            Selection.PasteSpecial Paste:=xlFormulas
            Cells(sor, 7).Select
            Selection.PasteSpecial Paste:=xlFormulas
            Cells(sor, 9).Select
            Selection.PasteSpecial Paste:=xlFormulas
            Cells(sor, 10).Select
            Selection.PasteSpecial Paste:=xlFormulas
            Cells(sor, 11).Select
            Selection.PasteSpecial Paste:=xlFormulas
            Cells(sor, 13).Select
            Selection.PasteSpecial Paste:=xlFormulas
            Cells(sor, 14).Select
            Selection.PasteSpecial Paste:=xlFormulas
        End If
    Next
    Application.CutCopyMode = False
End Sub

Biztosan meg lehet oldani elegánsabban is.