Double Click and Copy Data

I have a sheet with some 300 plus rows of data. I use filters to sort through the rows to get down to anywhere from 8 to 10 or so rows. At that point I would like to be able to select (doule click) a filtered row of 10 cells (A:J) copy the data and paste it to a different sheet starting with cell B18. I want to be able to perform this process up to 5 seperate times.

I have recorded a macro to do basically what I am trying but with many short falls. It only selects one row, I cannot double click on a row and it dosen't always paste to the proper cell.

Sub CopyWoods()
'
' CopyWoods Macro
' Macro recorded 6/2/2009 by Jim Ogier

    Sheets("Wood Shafts").Select
    Range("A15:J15").Select
    Selection.Copy
    
    Sheets("Input").Select

' Find next empty row
n = Sheets("Input").Range("B18").End(xlUp).Row + 1

' Write values to next empty row
    ActiveSheet.Paste
End Sub

Any help would be greatly appreciated.

Jim O