VBA copy cells to same destination row as the first pasted cell

Hi All

This formula is great except i need it to paste the other copied cells the the same row as 'cell A' was pasted.
Is that possible?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D3:D" & Range("A" & Rows.Count).End(3).Row)) Is Nothing Then

{If Target.Value = "y" Or Target.Value = "Y" Then
Range("A" & Target.Row).Copy Sheets("secondref").Range("A" & Rows.Count).End(3)(2)
Range("B" & Target.Row).Copy Sheets("secondref").Range("B" & Rows.Count).End(3)(2)
Range("C" & Target.Row).Copy Sheets("secondref").Range("C" & Rows.Count).End(3)(2)
Range("E" & Target.Row).Copy Sheets("secondref").Range("E" & Rows.Count).End(3)(2)
Range("L" & Target.Row).Copy Sheets("secondref").Range("F" & Rows.Count).End(3)(2)
Range("H" & Target.Row).Copy Sheets("secondref").Range("J" & Rows.Count).End(3)(2)
Range("I" & Target.Row).Copy Sheets("secondref").Range("K" & Rows.Count).End(3)(2)
Range("J" & Target.Row).Copy Sheets("secondref").Range("L" & Rows.Count).End(3)(2)
End If
End If
End Sub}

thanks
Amanda