Insert emty row before value is different in next cell

[knaabis]

I have a sheet:

SpecifikacijaTest1.xls
	A	B	C	D
1	16	65	380
2	16	65	380
3	16	65	380
4	16	65	380
5	22	75	898
6	32	100	650
7	32	100	882
8	40	40	250
9	40	40	250
Sheet1

How to insert by VBA new row, when changing value in column A.
For example - in row 4 i have value "16", but in the next row "22"
Between these rows i need new row.
Same situation is between row 5 and 6, and between 7 and 8.

 

[VoG]

Try

Sub InsRow()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 2 Step -1
    If Range("A" & i).Value <> Range("A" & i - 1).Value Then Rows(i).Insert
Next i
Application.ScreenUpdating = True
End Sub

 

[knaabis]

It's perfect!
Thanks.

 

[knaabis]

Ok, but if start row is 4?
Like this:

SpecifikacijaTest1.xls
	A	B	C	D
1
2
3
4	16	65	380
5	16	65	380
6	16	65	380
7	16	65	380
8	22	75	898
9	32	100	650
10	32	100	882
11	40	40	250
12	40	40	250
Sheet1

 

[VoG]

Just make this change

Sub InsRow()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 5 Step -1
    If Range("A" & i).Value <> Range("A" & i - 1).Value Then Rows(i).Insert
Next i
Application.ScreenUpdating = True
End Sub

 

[knaabis]

Thanks!