Hi,

Im trying to tweak the code so that if i delete/clear a value, the row below
is deleted, thks a lots.
Also, currently If I change values a row is inserted, I would like it so that
the no of rows remain.


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo ws_exit:
With Target
If .Column = 1 Then
If .Cells.Count = 1 Then
.Offset(1).EntireRow.Insert xlShiftDown
End If
End If
End With

ws_exit:
Application.EnableEvents = True
End Sub