Now it worked. What I realy need is this:
In Sheet 1, I have a configuration sheet. When item names come up here, I
need to generate a formal quote including item name (column A) and its
discription (column B) in a different worksheet. The data is in worksheet 2.
How do I do this? and how do I transfer the fonts?
--
Thanks


"JLGWhiz" wrote:

Sorry, didn't read it very close the first time. Try this:

Sub prtTst()
Range("A1").Activate
Range(Cells(ActiveCell.Offset(0, 1).Row, 2), Cells(ActiveCell.Offset(0,
1).End(xlDown).Row, 2)).Select
Selection.Copy Destination:=Worksheets(2).Range("$A$1")
End Sub

"rash30" wrote:

I have a large data (about 3 000 rows)where column A has product name and
column B has detailed product discription that can range anywhere from 1 to
10 rows. Discriptions in column B are separated by blank row. I want to
choose a specific product name and print its complete
discription on a separate worksheet. How can I do it?

--
Thanks

--
Thanks