Copy certain cells to another workbook (macro)

[Tubig]

I've tried searching for a few hours on this but I couldn't find exactly what I was looking for.

Is there way to create a macro to copy a few cells from one workbook and paste them into another at the bottom of the next open cell?

I found this code to get to the bottom of a page but that's as far as I got.

Sub FindFirstCellNextRow()
Dim x As Integer
x = ActiveSheet.UsedRange.Rows.Count
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.EntireRow.Cells(1, 1).Offset(1, 0).Activate
End Sub

Any help would be greatly appreciated!

 

[Norie]

Sounds perfectly possible.

What cells do you actually want to copy and where do you want to copy them to?

 

[Tubig]

Sounds perfectly possible.


What cells do you actually want to copy and where do you want to copy them to?

Thanks for the quick reply!

I want to copy row A1 from workbook "Purchase Order.xls on Sheet1" to workbook "Construction Schedule on Sheet2". I want it to copy that row to the next open row on that sheet.

I hope that makes sense.

 

[Norie]

Well that could be as simple as this.

Workbooks("Purchase Order.xls").Sheets("Sheet1").Rows(1).Copy Workbooks("Construction Schedule.xls").Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)

 

[Tubig]

Well that could be as simple as this.

Workbooks("Purchase Order.xls").Sheets("Sheet1").Rows(1).Copy Workbooks("Construction Schedule.xls").Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)

Thanks guys but i can't get it to work right.

I don't know how to enter the path correctly. This is what I have so far:

Sub FindFirstCellNextRow()
Workbooks("P:\1 - 2006 MASTERS.xls").Sheets("JOB SUMMARY").Rows(3).Copy Workbooks("Q:\CONSTRUCTION SCHEDULE\Book1.xls").Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)

Dim x As Integer
x = ActiveSheet.UsedRange.Rows.Count
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.EntireRow.Cells(1, 1).Offset(1, 0).Activate
End Sub

I don't know codes very well. Any help?

 

[Norie]

Why did you include the paths?

The code I posted assumed both workbooks were open.

 

[Tubig]

Why did you include the paths?

The code I posted assumed both workbooks were open.

ohhhh. OK. I'll give that another try.

Thanks again for all of your help!