Labels

I have sth like this from sb very helpful but need to copy also values
from column D as a item description and set number of labels copies
even to value in column E for each record ( sheet1 is a base, sheet2
is pattern of label):


Sub CommandButton1_Click()
lr=cells(rows.count,"c").end(xlup).row
for each c in range("C1:C" & lr)
If C.Value <>"" Then
c.Copy Sheets("Sheet2").range("E3")
sheets("sheet2").PrintOut
End If
Next C
End sub

Can anybody help me with this?
.

Loading