Destacar filas duplicadas

Hola
He encontrado en el foro una macro (el experto no se halla disponible ahora si no hubiera contactado con é) para colorear los valores duplicados de una columna. Me gustaría modificar esa macro para que hiciera exactamente lo mismo pero en vez de valores duplicados de columna para filas duplicadas es decir que coloreara las filas duplicadas.
La macro a modificar es ésta:
Sub coloreaDup()
'controla col A
Range("A2").Select
ultima = Range("A65536").End(xlUp).Row
'recorro hasta la fila última
While ActiveCell.Row <= ultima
'guardo fila para volver del bucle
filax = ActiveCell.Row
'controlo si aún no tiene color
If ActiveCell.Interior.ColorIndex = xlNone Then
    dato = ActiveCell.Value
    Do
    ActiveCell.Offset(1, 0).Select
    If ActiveCell = dato Then
        ActiveCell.Interior.ColorIndex = 4
        'opcional: colorear también el dato original
        Cells(filax, 1).Interior.ColorIndex = 4
    End If
    Loop While ActiveCell.Row <= ultima And ActiveCell.Row <> filax
End If
'paso a la fila sgte y repito el bucle
Cells(filax + 1, 1).Select
Wend
End Sub
Mi rango relleno en hoja1 es A1:F871
GRACIAS por la ayuda