Nem ez a probléma, de ezen a soron fennakadt a szemem:
x = Range("A65536").End(xlUp).Row
Ez olyan bal kézzel vakarom a jobb fülemet, nem?
Miért nem ezt alkalmazod?
x = Range("A1").End(xlDown).Row
(Nem is beszélve arról, hogy a 2007-es excelben már nem 65536 sor van egy munkalapon - ha már mindenképpen a végéről akarod kezdeni, hanem 1048576.)
Bocsánat, hogy közbeszóltam.