Public Sub ChangeMarker()


    Const main_sheet As String = "Sheet1"
    
    Dim cel As Range
    Dim last As Long
    Dim i As Long, j As Long
    Dim arr(1 To 4) As String
    
    With Sheets(main_sheet)
        last = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 1 To last
            Set cel = .Cells(i, 2)
            With cel
                If Len(.Value & "") Then
                        arr(1) = .Offset(0, 0)
                        arr(2) = .Offset(0, 1)
                        arr(3) = .Offset(0, 2)
                        arr(4) = .Offset(0, 3)
                Else
                    For j = 4 To 7
                        If .Offset(0, j).Value & "" <> arr(j - 3) Then
                            .Offset(0, j).Interior.ColorIndex = 6
                        Else
                            .Offset(0, j).Interior.ColorIndex = -4142
                        End If
                    Next
                End If
            End With
        Next
    End With
End Sub