Está tentando inserir linha em uma Tabela, então troque a instrução abaixo e veja se é isto :

Troque esta :
wsAtiva.Range(Cells(1, 1), Cells(1, 21)).Copy: wsAtiva.Range(Cells(13, 1), Cells(13, 21)).Offset(-1, 0).Insert Shift:=xlDown

Por esta :
wsAtiva.Range(Cells(1, 1), Cells(1, 21)).Copy: wsAtiva.Range(Cells(13, 1), Cells(13, 21)).Offset(-1, 0).ListObject.ListRows.Add AlwaysInsert:=True

Não funcionou, além de desconfigurar a planilha e apareceu uma cor roxo

Essa pequena que está em anexo não acontece o erro, pois quando faço nessa maior acontece, sendo o mesmo código.

Isso é um mistério !
Não funciona com o 12 !
wsAtiva.Range(Cells(1, 1), Cells(1, 21)).Copy: wsAtiva.Range(Cells(12, 1), Cells(12, 21)).Insert shift:=xlDown

Quando troco o 12 por 13 apenas funciona
??? Não entendi essa !
wsAtiva.Range(Cells(1, 1), Cells(1, 21)).Copy: wsAtiva.Range(Cells(13, 1), Cells(13, 21)).Insert shift:=xlDown

Resolvi, pois fiz tudo novamente a planilha com o mesmo código e deu certo.

Agora o erro não sei, fica o mistério !