This code used to run fine, then all of a sudden it started failing on \"method \'range of object\' _Worksheet failed\"? \' I\'m not an expert with VBA, but I can get myself
The Cells are being referenced from the activesheet, not "database".
Set CR1_range = ws.Range(ws.Cells(5, CR1), ws.Cells(ws.Rows.count, CR1))