I need to be able to take cell values from workbook 1 and paste them into the
next available blank row in column B of workbook 2. Is this possible and how
do i do it?

Thanks

Hi Ingalla -

Here's one approach. Change the workbook, sheet names, and source range to
suit.

Sub Ingalla()

Set wb1 = Workbooks("Workbook1.xls")
Set ws1 = wb1.Worksheets("Sheet1")
Set wb2 = Workbooks("Workbook2.xls")
Set ws2 = wb2.Worksheets("Sheet1")

ws1.Range("A1:A10").Copy _
Destination:=ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Offset(1, 0)

End Sub

---
Jay


"ingalla" wrote:

I need to be able to take cell values from workbook 1 and paste them into the
next available blank row in column B of workbook 2. Is this possible and how
do i do it?

Thanks