Borda ao redor de cada célula em um intervalo

Eu estou tentando criar uma função simples que irá adicionar bordas ao redor de cada célula em um determinado intervalo. Usando a maravilhosa gravação, isso gera uma tonelada de código que é completamente inútil. O código abaixo irá exibir uma 'tabela' de dados, em torno de cada célula neste intervalo eu gostaria de adicionar uma borda. Online Eu não consegui encontrar uma resposta simples ou clara para isso.

Toda a ajuda é muito apreciada!

Set DT = Sheets("DATA")
endRow = DT.Range("F" & Rows.Count).End(xlUp).Row
result = 3

For I = 2 To endRow
    If DT.Cells(I, 6).Value = Range("B1").Value Then
        Range("A" & result) = DT.Cells(I, 6).Value
        Range("B" & result) = DT.Cells(I, 1).Value
        Range("C" & result) = DT.Cells(I, 24).Value
        Range("D" & result) = DT.Cells(I, 37).Value
        Range("E" & result) = DT.Cells(I, 3).Value
        Range("F" & result) = DT.Cells(I, 15).Value
        Range("G" & result) = DT.Cells(I, 12).Value
        Range("H" & result) = DT.Cells(I, 40).Value
        Range("I" & result) = DT.Cells(I, 23).Value
        result = result + 1
    End If
Next I

questionAnswers(7)

yourAnswerToTheQuestion