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 !!