Ola podem me ajudar ?

Onde esta o erro aqui ?

Na Plan1 quero que copie a celula C4 para a Plan2 C8. Sendo que A7:E7 esta tudo preenchido.

Entao quero que ao rodar a macro fique em Plan2 coluna C o seguinte, conforme se rodar a mesma vai indo pra baixo,

Quero que use somente esta selecao de c8 a c21

Loja 1
Loja 2
Loja 3 ... ( ate a C21 )

Sub Macro8()

Dim Ws1 As Worksheet
Dim Ws2 As Worksheet

Dim Dest As Range

Set Ws1 = Sheets("Plan1") 'Referencia a guia Resumo como Ws1

Set Ws2 = Sheets("Plan2") 'Referencia a guia Plan1 como Ws2

Set Dest = Ws2.Range("C8").Range("C21").End(xlUp).Offset(1, -1) 'Encontra a ultima linha da guia comissão (definida como Dest)

Ws1.Range("C4").Copy 'Copia o intervalo C4 da guia Resumo
Dest.PasteSpecial xlPasteValues 'Cola valores na guia Comissão
Application.CutCopyMode = False

End Sub