Atualizar dados no Excell

ola tenho uma planilha no excell e quando clicar para atualizar a planilha todos que tem sim no campo da planilha campanha aparecerá 0 na coluna real e meta confornme abaixo

usuário e Férias
Pedro sim
Joao não
Maria não
Lima sim
Jaquelina não

Planilha Campanha

real meta
0 0

Sub Lista()
On Error Resume Next
contaLinha = 3
Do Until TabBusca.Range("C" & contaLinha).Value = "sim"
If Sheets("TabBusca").Range("C" & contaLinha) = "sim" Then
Sheets("Campanhas").Range("D13:D25" & contaLinha + 1).Select
With Selection.Interior
.ColorIndex = 14
End With
Exit Do
Else
contaLinha = contaLinha1
End If
Loop
End Sub