VBA insert row when value Changes

[kourbeh]

Hi guys
I hope someone can help me with this one!
I need to check the value of the Cell in B column, once it is changed I need to insert a new row, copy the contains of the first row to the new row, my code is not working properly
this is the sheet:
https://app.box.com/s/bntxmsw7wzbtonxrab57

Sub Insertrow()    SheetName = "Sheet1"
    RngStr = "B2:B" + CStr(Worksheets(SheetName).UsedRange.Rows.Count)
    Set Rng = Worksheets(SheetName).Range(RngStr)
    
    For Each Cell In Rng
        If Application.CountIf(Rng, Cell.Value) = 1 Then
            Cell.EntireRow.Insert
            Rows("1:1").Select
             Selection.Copy
             Range(Rng).Select
             ActiveSheet.Paste
                      
    
        End If
        Next Cell


End Sub

 

[kourbeh]

yes! how did you make it? can you share the code please

 

[Momentman]

I had posted the code earlier in this chat and was asking you if it worked, and you said NO.

 

[kourbeh]

oh sorry I just realized my mistake!


thanks a lot for the code, what happen is I ran your code inside mine and I screwed up sorry again.

 

[Momentman]

This is the code, if you go to the first page of this thread, you would see that I had initially posted this code but maybe you skipped it

Sub runmacro()    For I = Range("A" & Rows.Count).End(xlUp).Row - 1 To 2 Step -1
        If Range("B" & I).Value <> Range("B" & I + 1).Value Then
            Rows(I + 1).Select
            Selection.Resize(1).Insert
            Rows(1).EntireRow.Copy Range("A" & I + 1)
        End If
    Next I
End Sub

 

[kourbeh]

h sorry I just realized my mistake!


thanks a lot for the code, what happen is I ran your code inside mine and I screwed up sorry again.

 

[Momentman]

No problems at all, so long as it does what you want, thats fine