I'm getting error on the following part of the program:
Range("Z1").Select
ActiveCell.FormulaR1C1 = myStr
Selection.Copy
Range("Z1:Z" & ncl).PasteSpecial

Error: Run-time error '1004':
Application-defined or object-defined error

myStr is exactly as you posted.