May be:

dim wsm as worksheet
dim wsv as worksheet
set wsm=sheets("Master")
set wsv=sheets("Vendor's List")

wsm.select
lrow=wsm.cells(rows.count, "B").end(xlup).row
set rng=range("A1:A" & lrow)
for each c in rng
if c="x" then
range(cells(c.row,"B"), cells(c.row,"H").copy
wsv.cells(rows.count,"B").end(xlup).offset(1,0).pa stespecial
end if
next c

Not tested, adjust to suit


"Jack Wood" wrote in message
...

I have a worksheet in Microsoft Excel with a master list of vendors
consisting of 116 rows with the vendor's information contained in
columns B thru H of each row. In column A an x is placed for each
vendor selected that are going to be used. I want each vendor selected
to have the information contained in columns B thru H for that vendor be
automatically sent to another worksheet in the workbook called Vendor's
List while at the same time ignoring any blank spaces on the Vendor's
List. Is there a macro that can be used. I do not want to use drop
down boxes or lists.


--
Jack Wood
------------------------------------------------------------------------
Jack Wood's Profile:
http://www.thecodecage.com/forumz/member.php?userid=346
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=100380