Similar problem in the other macro
change to 
    CopyRng.Copy


                With DestSh.Range("B1").End(xlDown).Offset(1, 0)
                    .PasteSpecial xlPasteValues


                End With