Public Sub Macro1()
Dim dl As Integer
dl = Cells(Application.Rows.Count, 1).End(xlUp).Row
For i = dl To 1 step -1
If Cells(i, 1) <> Cells(i, 2) Then
Cells(i, 3).Value = Cells(i + 1, 3).Value
Cells(i, 4).Value = Cells(i + 1, 4).Value
Else
Cells(i, 1).Interior.ColorIndex = 4
End If
Next i
End Sub