I had to remove references to EasyOffice DLLs but, after that, .

The reason for not working is that column A is empty and the .Find returns Nothing rather than the A1 which I think you are expecting.

Instead of looking for an empty string you could use ..

Set FromOrigin = ActiveSheet.Range("A65535").End(xlUp)