Hi,

Try changing
Set rng = Sheets("Test Reg UC").Range("b11:b63") to
Set rng = Sheets("Test Reg UC").Range("b11:b64")