Copy and paste a row of data based on the location of the active celll

[sncr137]

Hello Everyone,

I am in need of a macro that, upon a double click, copies the data in a row based on the active cell being located somewhere on that row. Once Copied I would like it to paste the selected row into the next sheet in the next empty row.

The first row is D1 to J1 and then goes down from there. If I select D1 or J1 I would like it to copy the data from D1 to J1. Then Paste that data to the next sheet in the next available cell starting in B3.

I am very much a beginner and need some community help. Thank You.

 

[sncr137]

I actually have one request. Can this be completed and only take the values and not the formatting?

 

[MARK858]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim LR As Long
    If Not Intersect(Target, Range(Cells(Target.Row, "D"), Cells(Target.Row, "J"))) Is Nothing Then
        LR = Sheets("Shopping Cart").Range("B" & Rows.Count).End(xlUp).Row
        If LR < 2 Then LR = 2
        With Intersect(Rows(Target.Row), Columns("d:j"))
            Sheets("Shopping Cart").Range("B" & LR).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value
        End With
    End If
End Sub

or

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim LR As Long
    If Not Intersect(Target, Range(Cells(Target.Row, "D"), Cells(Target.Row, "J"))) Is Nothing Then
        LR = Sheets("Shopping Cart").Range("B" & Rows.Count).End(xlUp).Row
        If LR < 2 Then LR = 2
        Intersect(Rows(Target.Row), Columns("d:j")).Copy
            Sheets("Shopping Cart").Range("B" & LR).Offset(1).PasteSpecial xlPasteValues
    End If
End Sub