Summarizing to New worksheet

Hello All,

I have a Petty Cash Workbook that consists of a Cash Receipts worksheet, and two separate credit card worksheets. I would like to be able to summarize the data from these three worksheets to a fourth worksheet called “Yearly Totals”.

I’ve copied and modified code from Ron deBruin’s website but I’m not getting anywhere with it.
I’m constantly running a Runtime ERROR 9 with this line:

        
  Set DestSh = Worksheets(“Yearly_Totals”)

I also wanted to modify the code to use the current region property in order to pick up a bordered range, which you’ll see when you open this booklet. This would work better than the standard last row of data formula in this instance.

        
Set CopyRng = sh.Range(sh.Rows(StartRow), sh.Rows(shLast))

I’m pretty much an intuitive cut/paste kind of person so this is throwing me for a loop. (Literally and figuratively )

I’ve attached a formatted workbook for your perusal.

I would appreciate any help or explanation regarding this.

I have one other question regarding this workbook, but will post it to another thread if I can get past this design problem.


Thanks!

Mark