VBA применить все границы для диапазона

Question

Не могли бы вы помочь мне с моим кодом.А есть простые данные, к которым я хочу применить «Все границы».Количество строк изменится

Sub Draw_Borbers()
Dim FO As Worksheet
Dim LastRow As Long
Dim AllRange As Range



Set FO = ThisWorkbook.Worksheets("Final Order")

LastRow = FO.Cells(Rows.Count, 1).End(xlUp).Row
Set AllRange = Range("A2:I2" & LastRow)

With AllRange.Borders
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 0
    .TintAndShade = 0

    End With

End Sub

Проблема в том, что у меня есть только 361 непустая строка (на основе столбца A), она дает мне границы для 2361 строки.

Я думал, что этоиз-за пустых строк и добавил

.Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

к предыдущим макросам, но все равно дает мне это нечетное количество строк.

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

Буду очень признателен за вашу помощь!