Auto insert rows?

[jillteresa]

Hi there -
Is there a way to automatically insert 2 rows after the text in column B changes?


B
Group 1
Group 1
Group 1
Group 1
Group 2 <--Auto insert 2 rows here
Group 2
Group 3 <--Auto insert 2 rows here
Group 3
Group 3
Group 3

Thanks!
Jill

[Carim]

Hi Jill,

Follwing code should help

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
        If .Cells.Count > 1 Then Exit Sub
        If Intersect(.Cells, Me.Range("B:B")) Is Nothing Then Exit Sub
        If Target.Value <> Target.Offset(-1, 0).Value Then
        Target.EntireRow.Insert
        Target.EntireRow.Insert
        End If
End With
End Sub

HTH
Carim