Граница на последней ячейке, даже если это пустая / пустая ячейка

Question

У меня есть проблема в этой части в создании линии границы для каждой строки до последней ячейки. это хорошо работает, если последняя ячейка имеет значение. но границы прекращаются, когда последняя ячейка пуста.

вот мой код

lastcell = Cells(Rows.Count, 19).End(xlUp).Address
lastrow = Cells(Rows.Count, 19).End(xlUp).Row

Rng = "A11:" & lastcell
Range(Rng).Select
With Selection
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeLeft).Weight = xlThin
    .Borders(xlEdgeTop).LineStyle = xlContinuous
    .Borders(xlEdgeTop).Weight = xlThin
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).Weight = xlThin
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlEdgeRight).Weight = xlThin
    .Borders(xlInsideVertical).LineStyle = xlContinuous
    .Borders(xlInsideVertical).Weight = xlThin
    .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    .Borders(xlInsideHorizontal).Weight = xlThin
    .VerticalAlignment = xlCenter
    .WrapText = True
End With

Я хочу добавить непрерывную граничную линию до последнего значения данных, даже если последняя ячейка строки пуста.

благодарю вас.