Nebo přes resize

Sub radeksloupec()

Dim PosledniRadek As Long
Dim PosledniSloupec As Integer

With Worksheets("Report")

    PosledniRadek = .Cells(Rows.Count, 4).End(xlUp).Row
    PosledniSloupec = .Cells(3, Columns.Count).End(xlToLeft).Column
   
    With .Range("B3").Resize(PosledniRadek - 2, PosledniSloupec - 1)
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlMedium
        End With
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlMedium
        End With
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlMedium
        End With
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlMedium
        End With
    End With
End With
End Sub