Macro, insert row

[donniedorian]

Hello,

I need a new row if a2<>a3 = insert new row in a4, so the new row should be right underneath a3, for the all data in the a:a column

 

[mse330]

Hi donniedorian,

Try the below code

Sub AddRows()
For x = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    If Cells(x, 1) <> Cells(x - 1, 1) Then Rows(x).Rows.Insert
Next x
End Sub

 

[donniedorian]

Worked like magic, Thank you very much

 

[mse330]

Glad to help & thanks for reporting back