Auto insert rows?

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