Sub radeksloupec()

Dim PosledniBunka As Range
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
    
    Set PosledniBunka = .Cells(PosledniRadek, PosledniSloupec)
    
    With .Range("B3:" & PosledniBunka.Address & "")
        .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