Estoy tratando de crear una función simple que agregue bordes alrededor de cada celda en un rango determinado. Usando la maravillosa grabación, esto genera una tonelada de código que es bastante inútil. El código a continuación mostrará una 'tabla' de datos, alrededor de cada celda en este rango que me gustaría agregar un borde. En línea no he podido encontrar una respuesta simple o clara para esto.

¡Toda ayuda es muy 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