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