taking data at end of column and sending it to cell in another workbook

[gdecat]

I have two workbooks. Appendix I and Appendix II. I am trying to take the last used cell from column A in Appendix II and sending it to cell G8 in Appendix I as well as performing a Save As of Appenix I as the value being sent to G8. Thanks for any help.

[Leith Ross]

Hello gdecat,

You say you have 2 workbooks named Appendix I and Appendix II. What are the worksheet names the data are on? This example assumes both workbooks are open and the code is in the Workbook Appendix I and it is the active workbook. The Workbook name and Worksheet name may need to be changed to match what you have.

Copy LastCell into Cell "G" on Worksheet "Sheet1":
Range("G8").Value = WorkBooks("Appendix II.xls).Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Value


Sincerely,
Leith Ross