Nessa linha

    Set c = Plan1.Range("a65536").End(xlUp).Offset(1, 0)

O correto seria Plan4 pois a denominação utilizada não seria o nome utilizado na "aba", ficando assim:

Set c = Plan4.Range("a65536").End(xlUp).Offset(1, 0)

Obrigado colega!

Primeiro peço desculpas aos moderadores do fórum por ter esquecido de compactar o arquivo.

Aproveitei e resolvi outros problemas com a planilha.

Silvio