VBA 1004 error - range, insert row.

[K05tek]

Hi all,

I am totally new to VBA, its my first code.
I wanted to create macro which could insert a row after finding different value.
I managed to write something like this.
Could you pleas check what is causing the error 1004 - Application defined or object-defined error?

Sub InsertRow()

Dim i As Integer
Dim j As Integer
j = Application.WorksheetFunction.Count(Range("A:A"))
Sheets("Raport").Activate
For i = 1 To j
    If Sheets("Raport").Range(Cells(i + 2, 2)) <> Sheets("Raport").Range(Cells(i + 1, 2)) Then
    Range(Cells(i + 1, 2)).Insert(Shift:=xlShiftDown) = 1
    i = i + 1
    End If
Next i

End Sub

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub InsertRow()

Dim i As Integer
With Sheets("pcode")
   For i = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
       If Range("B" & i).Value <> Range("B" & i - 1).Value Then
       Rows(i).Insert
       End If
   Next i
End With

End Sub