VBA 1004 error - range, insert row.

K05tek

New Member
Joined
Aug 14, 2018
Messages
1
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?

PHP:
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
 

Excel Facts

Test for Multiple Conditions in IF?
Use AND(test, test, test, test) or OR(test, test, test, ...) as the logical_test argument of IF.
Hi & welcome to MrExcel
How about
Code:
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
 
Upvote 0

Forum statistics

Threads
1,213,513
Messages
6,114,072
Members
448,546
Latest member
KH Consulting

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top