Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = "1" And Not IsEmpty(Target.Value) Then
Sheets(1).Range("A2").Value = Sheets(2).Cells(Target.Row, Target.Column).Value
Sheets(1).Range("A3").Value = Sheets(2).Cells(Target.Row + 1, Target.Column).Value
Sheets(1).Activate
End If
End Sub