Копирование строк, Visual Basic + Excel Опции

[@^WARlock^@]

Люди кто знает подскажите.

Начиная с 1-ой строки 2-ого столбца, я забиваю текст вниз до строки10. Как сделать, чтобы копировались те строки, у которых 2-ой столбец имеет текст. Эти скопированные строки должны встасляться по порядку(вниз) начиная с 10-ой строки.

Если кому, что не понятно я прикрепил файл с наглядным примером. В Данном случаи копируется только одна строка, а должно 3.
 1.xls ( 29 килобайт ) Кол-во скачиваний: 330

[FreeMan]

да возьмись ты наконец и прочитай мануал... это ж элементарно

Код

Sub copy_some_shit()

Dim i
Dim j
i = 1
j = 10
While (i < 10)
If Not (Cells(i, 2).Value = "") Then
Cells(j, 2).Value = Cells(i, 2).Value
j = j + 1
End If
i = i + 1
Wend

End Sub