Cant select a range of cells

Can someone tell me why the following code gives me an error. I have so much trouble with ranges, I use the syntax as it is prescribed but I am missing something. Here is the code. I will include some code lines underneath since I imagine they wont work either.

 
Sheet2.Select
Range(Cells(R1, C1), Cells(R2, C2)).Select
    
'
'Paste data to report sheet
'
    
    Worksheets("PT Monthly Report-1").Select
    Range("PTReport1Data").Select

I eventually will be turning the range statements into copy and paste instead of select. At the moment I am using select to make sure the proper cells are being selected.

I am also attaching my complete workbook as well. Thanks

Dan