maybe a Double Click event on Sheet1
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
Dim erw As Long
Set r = Target.Cells(1, 1)
If r.Row = 1 Then Exit Sub
If r.Column <> 10 Then Exit Sub
If r.Value = 0 Then
MsgBox "A QUANTITY WAS NOT ENTERED"
Exit Sub
End If
erw = Sheet2.Cells(1, 1).CurrentRegion.Rows.Count + 1
Sheet2.Cells(erw, 1).Value = r.EntireRow.Cells(3).Value
Sheet2.Cells(erw, 2).Value = r.EntireRow.Cells(5).Value
Sheet2.Cells(erw, 3).Value = r.EntireRow.Cells(8).Value
Sheet2.Cells(erw, 4).Value = r.Value
r.Value = 0
End Sub