Assigning Current Region to a variable

Hi,

I’m attempting designate the cell which will then determine the start of the current region,
to be copied and pasted to another sheet.

I’m receiving an “ERROR 1004” , Method Range of object_ Worksheet Failed.

Does anyone have any ideas as to what I’m doing incorrectly and how to fix it?

               
 Set CopyRng = sh.Range(sh.Rows(StartRow), 3).Activate
                       CopyRng.CurrentRegion.Select

The workbook is attached for your inspection.
The code is located in module 4

Thanks
Mark