with worksheets("Sheet2")
set rng = .Cells(rows.count,1).End(xlup)(2)
End With

rng.Value = cust
rng.offset(0,1).Value = info1
rng.offset(0,2).Value = info2
rng.offset(0,3).Value = info3
rng.offset(0,4).Value = info4


change info1 to info4 with the actual cell references such as
worksheets("Sheet1").Range("B9")

--
Regards,
Tom Ogilvy

"jeremy" wrote in message
...
Can anyone help.

I have a spreadsheet containing information on one
customer in several cells. this spreadsheet is used for
each new customer contact. I would like to save the info
in this documnet in a separate spreadsheet with all the
cell information in one row as shown below.

Document 1

Customer: Cust 1

info 1 info 3

Info 2 info 4


Document 2


Cust 1 info1 info 2 info 3 info 4
Cust 2 info1 info 2 info 3 info 4
Cust 3 info1 info 2 info 3 info 4
Cust 4 info1 info 2 info 3 info 4

What I need is a progamming device on the first document
which will save the cell info into the second document in
the next availalbe row.