Need Macro for Insert Row on Unique Value

[xbrianx]

VoG, I have a macro you supplied in a different thread:

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

However, this is inserting a row ABOVE and BELOW where the value in column 'A' changes. Can you give me the macro to insert 2 rows ABOVE where the value in column 'A' changes? Thanks.

 

[xbrianx]

To be specific, column 'A' looks like this:

A
(blank)
(blank)
B
(blank)
C
(blank)
(blank)
(blank)
D
(blank)
(blank)
E
(blank)
(blank)
(blank)
(blank)
(blank)
F
(blank)
G
(blank)
(blank)

I have a lot of data in columns in B-N, and I want to but in two blank rows above where there is a NEW value in column 'A'

 

[xbrianx]

Can anyone help with this?

 

[xbrianx]

Still need help with macro to insert row ABOVE unique value

Removing the "-" sign on row4 4 of the macro before the "1" does nothing:

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

PLEASE HELP!!!!!!!! Thx.