Selecting Specific Cells

Hello there

I have got a problem using the following code. It works fine if I use it in the spreadsheet that I originally wrote, but when I copy it into another spreadsheet, it doesn't work. Just to mention there is no reference to any sheet name in the whole code and the Sheet name is identical too.
Can anyone help with what the problem might be??

I get the 'error 1004 - method range of object worksheet failed' or error 1004 - select method of range class failed.

Please Login or Register  to view this content.

It works fine until row selecting range A8. but gives me an error after this point.

The whole code (for ref) is:

Please Login or Register  to view this content.

Thanks