Automatically insert row below cell when text is written in.

[nickstar76]

Hey there

I know a little about Macro's but i have not been able to find the details online so far. What I want is for any information that is entered into column J for that to automatically insert a row underneath that row. The main problem i seem to be having is I can find a macro but you obviously need to click on tools>macro>run macro which goes against the whole point of it being automatic. The rows involved are 3:500.

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
    With Target(1, 7)
        .Value = Date
        .EntireColumn.AutoFit
    End With
ElseIf Target.Column = 12 Then
    If Target.Value <> "" And Target.Offset(1, -10).Value <> "" Then Target.Offset(1).EntireRow.Insert
End If
End Sub

 

[nickstar76]

Cheers for all of your help. Is going to make my job much easier