Automate insertion of row data

[MrJJP]

Hello, would like to automatically add certain row data when data in other cells is added. In the below screenshot I have unchanging data in columns B & C, with the expectation that users will input data into the respective columns D, E & F. So my starting point in the example is B2:F5, and I would like it to come out to looking like the example in B8:F13. Another way to say this, is in B8:F13, if a user input the data into D8, E8, and/or F8, upon hitting enter, it would create a new row underneath it with blanks (ready for the next user's input) into D9:F9, but still copy/retain the original data values from B8 and C8. I'd prefer to do it without VBA, but can muster through that with any additional help (my total number of rows will be around 35 and I may have 3-4 additional columns). Thanks for any help!

 

[myall_blues]

I hope I've understood correctly. If so I think this fixes the issue.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cRow As Long
    If Intersect(Target, Range("F3:F40")) Is Nothing Or Target.Columns.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    cRow = Target.Row
    Rows(cRow + 1 & ":" & cRow + 1).Insert Shift:=xlDown
    Range("B" & cRow & ":D" & cRow).Copy Range("B" & cRow + 1 & ":D" & cRow + 1)
    Application.CutCopyMode = False
    Application.EnableEvents = True
End Sub

 

[MrJJP]

Hooray! I really think that nailed it, I've been running through the sheet multiple times with varying edits to make sure I didn't leave anything out or have any further issues. Thanks again for sharing your expertise and of course the VBA code!

 

[myall_blues]

Good news, and you’re welcome.