Hi, I've had the following working before but in another spreadsheet but for some reason it fails in my new spreadsheet. The only difference is that the destination workbook is now macro enabled so maybe has something to do with that?
What I'm trying to achieve is to copy a fixed range of data from one workbook to the last empty row of another workbook. Here is what I've tried:
Application.Goto (ActiveWorkbook.Sheets("Ref").Range("A11:BD11"))
Selection.Copy
ChDir "G:\Exec Reporting\Key Reports\BuildIT"
Workbooks.Open FileName:= _
"G:\Exec Reporting\Key Reports\BuildIT\BuildITQuoteFollowUp.xlsm"
ActiveWorkbook.Sheets("Data").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Any help would be greatly appreciated.
Thanks!
Bookmarks