[vba]

Public Sub FormatData()
Dim LastRow As Long
Dim i As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow

If .Cells(i, "A").Value = .Cells(i + 1, "A").Value And _
.Cells(i, "B").Value = .Cells(i + 1, "B").Value And _
.Cells(i, "C").Value = .Cells(i + 1, "C").Value And _
.Cells(i, "D").Value = .Cells(i + 1, "D").Value And _
.Cells(i, "E").Value = .Cells(i + 1, "E").Value And _
.Cells(i, "F").Value = .Cells(i + 1, "F").Value And _
.Cells(i, "G").Value = .Cells(i + 1, "G").Value And _
.Cells(i, "H").Value = .Cells(i + 1, "H").Value Then

.Cells(i, "A").Resize(, 8).Font.ColorIndex = 2
End If
Next i
End With
End Sub
[/vba]