Excel - Poner formato de celdas en datos iguales con macros

Private Sub Worksheet_Activate()

Dim myAreas As Areas, myArea As Range

Range("a:d").Borders.LineStyle = xlNone

Columns(1).Insert

With Range("b1", Range("b" & Rows.Count).End(xlUp)).Offset(, -1)

    .Formula = "=if(countif(b:b,b1)>1,1,"""")"

    On Error Resume Next

    Set myAreas = .SpecialCells(-4123, 1).Areas

    On Error GoTo 0

End With

If Not myAreas Is Nothing Then

    For Each myArea In myAreas

        myArea.Offset(, 1).Resize(, 4).BorderAround Weight:=xlThick

    Next

End If

Columns(1).Delete

End Sub

Sub BordesPorGrupos()

Dim i&, j&

Range([a2], [d1].End(xlDown)).Borders.LineStyle = xlLineStyleNone

i = 2: j = 3

Do

  If Cells(i, "a") <> Cells(j, "a") Or Cells(i, "b") <> Cells(j, "b") Then

    With Range("a" & i, "d" & j - 1)

      .Borders.LineStyle = xlContinuous

      .Borders(xlInsideVertical).LineStyle = xlLineStyleNone

      .Borders(xlInsideHorizontal).LineStyle = xlLineStyleNone

    End With

    i = j

  End If

  j = 1 + j

Loop Until Cells(i, "a") = ""

End Sub