something like this to get you started. If there's an x in column A then
columns B-H are copied to the target sheet columns A-G

Option Explicit
Sub CopyVendors()
Dim cell As Range
Dim targetRow As Long
Dim wsVList As Worksheet

Set wsVList = Worksheets("Vendors List")
wsVList.Cells.Clear

For Each cell In Range("A1:A116").Cells
If UCase(cell.Value) = "X" Then
wsVList.Range("A1").Offset(targetRow).Resize(, 7).Value =
cell.Offset(, 1).Resize(, 8).Value
targetRow = targetRow + 1
End If
Next
End Sub


"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