Excel VBA filecopy

Question

I wrote below codes for copying files. But if not available cells are consecutive i received Run time error 53. I want to copy all folders in the my list

Sub