Copy Paste R1C1 help

[puck]

I have a little amount of data that changes constantly that I need to move from one file and past amongst 8 different tables. I'm new to working with vba on excel, but trying to learn. Any assistance would be appreciated.

    Workbooks("Phone import prep book.xlsm").Worksheets("Dataset").Range("A3:a102").Copy
    Workbooks("import_test.xlsx").Worksheets("Basic").Range("C11:C110").PasteSpecial xlPasteValues
    Workbooks("import_test.xlsx").Worksheets("Handle").Range("B11:B110").PasteSpecial xlPasteValues
    Workbooks("import_test.xlsx").Worksheets("CM Endpoit Profile").Range("AI11:AI110").FormulaR1C1("R[35]C[11]:R[35]C[110]").PasteSpecial xlPasteValues

I keep getting a script out of range.

Thank you

 

[Domenic]

With regards to your error "Script out of range", it could mean that the workbook you've specified is not opened. Or, it could mean that the worksheet you've specified does not exist within the specified workbook. Or it could mean that either the workbook name or worksheet name is spelled incorrectly, and so it can't find either of them.

By the way, I'm not sure why you're using FormulaR1C1 on your last line, but it looks like it should be...

Workbooks("import_test.xlsx").Worksheets("CM Endpoit Profile").Range("AI11:AI110").PasteSpecial xlPasteValues

Hope this helps!