Ahoj, mam nasledujici makro ve visual basicu ktery mi hazi chybu " run time error 91 object variable or with block variable not set" na radku PosledniBunka = Cells(PosledniRadek, PosledniSloupec)

makro je nasledujici, jeho funkce je aby ohranicil tlustym ohranicenim oblast od bunky B3 az po bunku, kterou zjistim pomoci PosledniRadek a Posledni sloupec, ale nejak se mi ji nedari ulozit do PosledniBunka....

Sub radeksloupec()

Sheets("Report").Select

Dim PosledniBunka As Range

PosledniRadek = Cells(Rows.Count, 4).End(xlUp).Row
PosledniSloupec = Cells(3, Columns.Count).End(xlToLeft).Column

PosledniBunka = Cells(PosledniRadek, PosledniSloupec)

    Range("B3:PosledniBunka").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With

End Sub

předem děkuji za pomoc