Подскажите, плиз чайнику,
следующая проблема:

Из одного листа Excell копируется необходимые блоки в другой лист. В этих блока текста встерчаются пустые ячейки.

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

Судя по этому топику это надо сделать как-то так:

Dim ХХХ As Integer
For ХХХ = 1 To 65000
Cells(1, 1).SpecialCells(4).Row
Rows(ActiveCell.Row).Select
Selection.ClearContents
Selection.Delete Shift:=xlUp
Next ХХХ


Так как делая все практически в первые и методом тыка, то не могу понять, ХХХ - это что за величина, какую надо прописать чтобы он с первой по последнюю строку просматривал??!

Спасибо...

А может даже не так...

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

Sheets("Ôîðìà 1").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.SmallScroll Down:=9
Range("Îáëàñòü_ñïðàâêà").Select
Selection.Copy
Sheets("Ïðîáà").Select
ActiveSheet.Paste
Sheets("Ôîðìà 1").Select
ActiveWindow.SmallScroll Down:=48
Range("Îáëàñòü_ñïðàâêà2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ïðîáà").Select

Cells(1, 1).SpecialCells(4).Row

'Cells(Rows.Count, 1).End(xlUp).Row

'Cells(1, 1).SpecialCells(4).Row

Rows(ActiveCell.Row).Select

'Selection.ClearContents
'Selection.Delete Shift:=xlUp


'Range("A7").Select
ActiveSheet.Paste
Sheets("Ôîðìà 1").Select
ActiveWindow.SmallScroll Down:=48
Range("Îáëàñòü_ñïðàâêà3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ïðîáà").Select

Cells(Rows.Count, 1).End(xlUp).Row
Rows(ActiveCell.Row).Select