Hi Vmerril,

Try something like this change event macro.
Assumes the quanity will be entered in column A and there is a worksheet
named Order Sheet.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column < 1 Then Exit Sub

If MsgBox(prompt:=" Post to Order Sheet?", _
Buttons:=vbYesNo, _
Title:="Poster") = vbYes Then
Target.Resize(1, 4).Copy _
Sheets("Order Sheet").Range("A100") _
.End(xlUp).Offset(1, 0)

ElseIf vbNo Then
Exit Sub

End If
End Sub

HTH
Regards,
Howard

"vmerrill" wrote in message
...
I work for a small laundry equipment distributor. I would like to have a
sales order that is "automated" on the following basis (or a more elegant
way):

To create a sales order, open the blank sales order workbook. Go to the
data
input sheet. This sheet would be a list of all equipment we sell with a
row
dedicated to each equipment item. The first cell of that row would be a
blank
cell that will contain the number of items to be ordered. The second cell
of
that row would be the manufacturer of that item.The third cell of that row
would be the model number of that item. The fourth cell of that row would
be
a description of the item. If you enter a number in the first cell that
denotes the number of items to be ordered, then that row will appear in a
second sheet that is the actual sales order.

Can any one help me with this please!