I culled this code from another source and it does part of what I need but I was hoping it would be possible to develop it slightly to automate a task further

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
    Target.Offset(1).EntireRow.Insert
    Target.EntireRow.Copy Target.Offset(1).EntireRow
    On Error Resume Next
    Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
    On Error GoTo 0
End Sub

The codes so far inserts a blank row below the active row that is double clicked. What I was aiming for was to also copy the contents of the double clicked row ( just columns C to F) into the new row that is created. The icing would be to add the text "Split" into column J (again of the newly created row)

Any help with any part of this code would be appreciated.

Many thanks

P.S is it just my imagination or have the code tags buttons gone from the page, I had to manually type them in this time round?