Altere a linha :

intLastRow = Sheets("cadastroORI").Range("A1").End(xlDown).Row + 1

para :

intLastRow = Sheets("cadastroORI").Range("A1048576").End(xlUp).Row + 1

o Erro se dá quando utilizamos End(xlDown).Row que captura a ultima linha da planilha de cima para baixo sendo a última linha "A1048576" e soma mais 1 extrapolando a qde de linhas, ela só funcionara se já tiver alguma informação em "A2".

Utilizando End(xlUp).Row verificamos de baixo para cima, assim se A2 estiver em branco não teremos erro.

[]s

Muito Obrigado Mauro.

Funcionou perfeito.

Valeu Mesmo, Obrigado!!!