Indsætte kanter i celler på flere ark i excel?

Jeg vil gerne have at VBA udfylder kanter på de celler som det kopier fra et andet ark, hvis der står et bestemt ord i en celle. Desværre udfylder det hele rækken i de ark, hvad gør jeg galt? Kan jeg begrænse kanterne, så de kun dækker de udfyldte celler?


Sub Sletogkopierrefleksion()

Sheets("RefleksionsLog").Range("A2:E800").ClearContents
Sheets("RefleksionsLog").Range("A2:E800").Interior.ColorIndex = xlNone


Dim i As Worksheet, e As Worksheet
    Dim d, j

    Set i = Sheets("Hovedark")
    Set e = Sheets("RefleksionsLog")
    d = 1
    j = 6 'Hvilke rækken man starter fra

    Do Until IsEmpty(i.Range("A" & j))
        If i.Range("A" & j) = "Refleksion" Then
            d = d + 1
            e.Rows(d).Value = i.Rows(j).Value
            e.Rows(d).Borders.LineStyle = xlEdgeBottom

           
        End If
        j = j + 1
    Loop
   
   
   
        End Sub