Сложение данных в разных ячейках

[EducatedFool]

Почему-то выделяет и много пустых строк. Хотя там точно ничего нет.

Там что-то есть Или было раньше...

Метод SpecialCells(xlCellTypeLastCell) возвращает последнюю ячейку, с которой ты каким-либо образом работал (изменял значение, форматировал, и т.д. и т.п.)

Так что если строки выглядят пустыми, и при этом выделяются, - это нормально.

Лучше поищи другие способы выделения диапазона.
Или избавься от этих "подпорченных" строк...
(путём выделения диапазона ячеек с последующим копированием в только что созданную книгу Excel)


P.S.: А для рисования рамок вокруг диапазона ячеек я использую такую процедуру:
(может, пригодится)

Sub SetRangeBorders(ByRef ra As Range, ByVal BordersLineStyle As XlLineStyle, ByVal BordersWeight As XlBorderWeight)
    ra.Borders.LineStyle = BordersLineStyle: ra.Borders.Weight = BordersWeight
    ra.Borders(xlDiagonalDown).LineStyle = xlNone: ra.Borders(xlDiagonalUp).LineStyle = xlNone
End Sub

Использовать можно примерно так:

Sub test()
    SetRangeBorders [e4:h16], xlDouble, xlMedium
End Sub