Ejecutar la macro una sola vez

Descubrí esta macro aquí en Todoexpertos que compara dos columnas y en la tercera arrojas valores únicos; lo que pasa es que si ejecuto el botón por segunda vez me vuelve arrojar los mismos datos, lo que quiero es que me arroje una sola vez para no duplicar datos. Sé que si se utilizar While, me lo va hacer las veces que ejecute el botón.

101 101 102
102 103 104
104 105 106
103 107
105 106
107

AQUÍ ESCRIBO EL CÓDIGO

Private Sub CommandButton1_Click()
Dim celda, valor As
String
Range("A2").Select
Do While
ActiveCell.Value <> ""
celda =
ActiveCell.Address
valor =
ActiveCell.Value
Range("B2").Select
Do While
ActiveCell.Value <> ""
If ActiveCell.Value
= valor Then
Exit Do
Range(celda).Select
End If
ActiveCell.Offset(1,
0).Select
Loop
If ActiveCell.Value
= "" Then
Range("C2").Select
Do While
ActiveCell.Value <> ""
ActiveCell.Offset(1,
0).Select
Loop
ActiveCell.Value =
valor
End If
Range(celda).Select
ActiveCell.Offset(1,
0).Select
valor =
ActiveCell.Value
Loop
Range("B2").Select
Do While
ActiveCell.Value <> ""
celda =
ActiveCell.Address
valor = ActiveCell.Value
Range("A2").Select
Do While
ActiveCell.Value <> ""
If ActiveCell.Value
= valor Then
Exit Do
Range(celda).Select
End If
ActiveCell.Offset(1,
0).Select
Loop
If ActiveCell.Value
= "" Then
Range("C2").Select
Do While
ActiveCell.Value <> ""
ActiveCell.Offset(1,
0).Select
Loop
ActiveCell.Value =
valor
End If
Range(celda).Select
ActiveCell.Offset(1,
0).Select
valor =
ActiveCell.Value
Loop
End Sub