Newbie Q? Double click event to copy and paste relative reference to next empty row in another sheet

[OTOTO]

Here's my problem: I am attempting to make cells in row Q double clickable and in doing so copy the data in that same row (to the left 4 cells to 15 cells to the left (of the double clickable cell)) into columns B through M in another sheet "RiskRegister" in the next empty row. I have found this code for locating the next empty cell in a column for the pasting code:

lMaxRows = Cells(Rows.Count, "B").End(xlUp).Row
Range("B" & lMaxRows +1).select

I have the following code entered into the Worksheet's double click event:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address Like "$Q*" Then
currRow = Target.Cells(1, 1).row
Set currSheet = Target.Worksheet
End If
End Sub

...and I've recorded using relative references the following flawed Macro to run upon the double click:

Sub Macro17()
'
' Macro17 Macro
'

'
ActiveCell.Offset(0, -15).Range("A1:L1").Select
ActiveCell.Offset(0, -4).Range("A1").Activate
Selection.Copy
Sheets("Risk Register").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

The debugger is showing that the following line has an error as the identifier under the cursor is not recognized:
ActiveCell.Offset(0, -4).Range("A1").Activate



I am new to working with Excel in this manner and have no coding experience. Any help on how to get this double click event to do what I want would be greatly appreciated.

 

[JoeMo]

You don't need to do all the selecting and activating, and you don't need a separate macro to transfer the data.
Try this:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lMaxRows As Long
If Not Intersect(Target, Columns("Q")) Is Nothing Then
    Range(Cells(Target.Row, "B"), Cells(Target.Row, "M")).Copy
    With Sheets("RiskRegister")
        lMaxRows = .Cells(Rows.Count, "B").End(xlUp).Row
        .Range("B" & lMaxRows + 1).PasteSpecial Paste:=xlPasteAll
        Application.CutCopyMode = False
    End With
End If
End Sub

 

[OTOTO]

Thanks JoeMo, that worked like a charm.

Maybe you can assist in my second code question:

Similarly to this task I would like to create a double click event which will look at Column A's data in the row which was selected, Column A contains a number which matches only one other cell in Column A of the worksheet "RiskRegister". This will be used to find the row in the "RiskRegister" sheet which will be updated. I want the doubleclick event to paste data from the sheet with the double click event into the riskregister Sheet but only some columns in the row will have data which needs to be pasted. If there's data it will need to be pasted, if not, then the data in the row in the "RiskRegister" sheet can remain. This is far too complex for me to attempt to solve.

 

[OTOTO]

Bump******