Copy data from an XLSM worksheet into a XLSX worksheet

[Stevep4]

The XLSM file is called FileA.xlsm
The XLSX file is call FileB.xlsx

I'm trying to copy data from the XLSM tab into the XLSX tab. Let's say the tab to I want to copy from is call COPYFROM and the tab in the XLSX is COPYTO. I know the code to open the xlsx file.

Workbooks.Open Filename:="S:\Path\FileB.xlsx", ReadOnly:=True

I now need to figure out how to copy data from COPYFROM in FileA into COPYTO in FileB.
Here is the code I have so far. The second line needs to list the filename and sheet, and I'm not quite sure how to do that.

Worksheets("COPYFROM").Range("a2:v90000").Copy
    Workbook("on order TEMPLATE").Range("A2:V90000").PasteSpecial Paste:=xlPasteValues

Thanks

 

[Captain_Conman]

Try this! Make sure to change the file paths to reflect where your files are located...

Sub Copy_Paste()


Dim FileA As Workbook
Dim FileB As Workbook
Set FileA = Workbooks.Open("S:\Path\FileA.xlsx")
Set FileB = Workbooks.Open("S:\Path\FileB.xlsm")


    FileA.Activate
    Worksheets("COPYFROM").Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy
    FileB.Activate
    Worksheets("COPYTO").Range("A2").Select
    Selection.PasteSpecial
    Application.CutCopyMode = False
End Sub

 

[Stevep4]

Thanks!