макрос вставки строк!!!

[Andrew11]

Дан столбец из 10 ячеек с разными значениями. Необходимо, чтоб макрос вставлял пустую строку после каждой ячейки, значение которой больше предыдущего.
Выглядит примерно так:

1
1

2

3

4
4

[Hugo121]

Идти с 10 до 2 и вставлять строку, если выше меньше, чем тут.

Option Explicit

Sub Macro1()
Dim i As Long

For i = 10 To 2 Step -1
If Cells(i - 1, 1).Value Then
   If Cells(i, 1).Value > Cells(i - 1, 1).Value Then Rows(i & ":" & i).Insert Shift:=xlDown
End If
Next

End Sub

[Andrew11]

Огромное спсибо. А то я себе 2 дня голову ломаю