It is easier to copy the rows and then remove the blanks. Say sheet1 has the
items in row 1 and the quantity in row 2 and we want to copy this to sheet2,
but only the non-empty quatities:

Sub another()
Sheets("Sheet1").Range("A1:IV2").Copy Sheets("Sheet2").Range("A1")
Sheets("Sheet2").Activate
n = Columns.Count
For i = n To 1 Step -1
If IsEmpty(Cells(2, i)) Then
Range(Cells(1, i), Cells(2, i)).Delete shift:=xlToLeft
End If
Next
End Sub

--
Gary''s Student - gsnu200835


"Beth" wrote:

hi new to posts!
Is there a formula to copy row from worksheet to another in the same
workbook? I have a price list in one work sheet that allows the user to
enter a qty of items in each row. I want to be able to print a summary page
of only the items selected or where a quantity was entered. The current
worksheet contain over 100 items and sometimes only one or two items is
selected.
Thanks for help!
beth