Help extending the peramitors of a working VBA code

Morning All,

I am currently using the code below without any problems.

Please Login or Register  to view this content.

However, I now want to extend the Data.SH.Range to column EA. I have tried to simply change "A:AG" to "A:EA" and then the copytorange from "B10:EA10" but this causes an error in the code.

I would really appriciate it if someone could show me where I am going wrong.

Regards

Howardjo