Worksheets("Sheet4").Select
Range("A65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, 1).Select
ActiveSheet.Paste

will paste below the last cell in column a

"JMay" wrote:

trying to paste the copied range..

"bj" wrote:

what are you trying to do?
the line is not a command

"JMay" wrote:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
CurRow = ActiveCell.Row
Range("A" & CurRow & ":E" & CurRow).Copy
Worksheets("Sheet4").Range("A65536").End(xlUp).Row <<< Error here!!
End Sub

Why, please !!