Insert blank row if cells match

[ckdragon]

Hi guys,

Just wondering if there is a simple If statement I can add to some exisiting VBA code I have that states,

If cell = the cell above, then insert blank row.

I already have code they adds rows based on other conditions, but there seems to be the odd error where that insert row fails, so this is a back up.

please and thank you!

 

[Peter_SSs]

Is this what you mean?

Sub Insert_Rows()
  Dim r As Long
  
  Application.ScreenUpdating = False
  For r = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
    If Range("A" & r).Value = Range("A" & r - 1).Value Then Rows(r).Insert
  Next r
  Application.ScreenUpdating = True
End Sub

Before:

ckdragon_1.xlsm
	A
1	Data
2	a
3	b
4	b
5	b
6	c
7	c
8	d
9
Sheet1

After:

ckdragon_1.xlsm
	A
1	Data
2	a
3	b
4
5	b
6
7	b
8	c
9
10	c
11	d
12
Sheet1

 

[ckdragon]

Ho

Is this what you mean?

Sub Insert_Rows()
  Dim r As Long
 
  Application.ScreenUpdating = False
  For r = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
    If Range("A" & r).Value = Range("A" & r - 1).Value Then Rows(r).Insert
  Next r
  Application.ScreenUpdating = True
End Sub

Before:

ckdragon_1.xlsm
	A
1	Data
2	a
3	b
4	b
5	b
6	c
7	c
8	d
9
Sheet1

After:

ckdragon_1.xlsm
	A
1	Data
2	a
3	b
4
5	b
6
7	b
8	c
9
10	c
11	d
12
Sheet1

100% perfect again.

Thank you so much!

And thank you for coming back so quickly... Honestly means the world!

 

[Peter_SSs]

Cheers. No problem.