Copy cells from active row to inserted blank row below, part way there..

[coasterman]

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?

[patel45]

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   Target.EntireRow.Copy
   Target.Offset(1).EntireRow.Insert
   Range("J" & Target.Offset(1).Row) = "Split"
   Application.CutCopyMode = False
'   Target.EntireRow.SpecialCells(xlConstants).ClearContents
End Sub

[HaHoBe]

Hi, coasterman,

as you asked for only inserting a part of the columns instead of an entire row:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   Target.Offset(1).EntireRow.Insert
   Range("C" & Target.Row & ":F" & Target.Row).Copy Destination:=Range("C" & Target.Row + 1)
   Range("J" & Target.Row + 1) = "Split"
End Sub

No, everything on the forum software should have returned to normal usage - highlight your code and hit the #-sign if you are in advanced mode for answering.

Ciao,
Holger