Вопрос: vba - excel

Question

Я заполняю строки в Excel, выходит примерно 5,600 сток.
Потом удаляю всех строки, но у меня скролл все равно остается маленьким, как и при 5т.
Вопрос: как сделать, что бы количество сток пустых было таким же, как и при открывании нового листа?
Удаляю строкой: Cells.Clear

aleks_kukha · Accepted Answer

msdn.microsoft.com/en-us/library/office/aa223863
(v=office.11).aspx

aleksandr_h · Answer

Sub Udalenie_Pustyh_Strok() 
Dim r As Long, FirstRow As Long, LastRow As Long
FirstRow = ActiveSheet.UsedRange.Row
LastRow = ActiveSheet.UsedRange.Rows.Count - 1 + ActiveSheet.UsedRange.Row
For r = LastRow To FirstRow Step -1
If Application.CountA(Rows(r)) = 0 Then
Rows(r).Delete
End If
Next r
End Sub