Macro Copiar e Colar com CheckBox

[Tony_Tomba]

Olá a todos, 

Estou criando um formulário cadastral de clientes, para que o mesmo possa preencher e me enviar.

Em certo ponto criei um CheckBox, que ao ser marcado Copia o Endereço de correspondência e Cola em outro campo para ser usado como Endereço de Cobrança.

Caso seja desmarcado não é necessário fazer nada.

Porém quanto é marcada novamente, o Excel exibe "Já existem dados aqui. Deseja substituí-los?", caso clique Sim, a macro roda normalmente, mas dá erro no caso da pessoa clicar Não.

Abaixo segue a macro

Private Sub CheckBox1_Click()
' Copia as informações Endereço de Correspondencia
If CheckBox1.Value = True Then
    Range("A19:I19").Select	' primeira linha de endereço
    Selection.Copy
    Range("A24:E24").Select
    ActiveSheet.Paste
    Range("A21:I21").Select		' segunda linha de endereço
    Application.CutCopyMode = False
    Selection.Copy
    Range("A26:C26").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
Else
CheckBox1.Value = False
End If
End Sub

 

Como posso corrigir? Alguma ajuda.

 

Agradeço

[diego_janjao]

Não daria para colocar um If checkbox1.value = false then

Range("células em questão") = ""

 

?