C/Visual C - copiar valores en cuadro de la lista mediante macro

'
Sub Macro100()
'
buenos dias
alguna ayuda para el suiguiente problema bien sea modificando este macro o creando otro que reescriba este.
gracias


' Macro100 Macro

'""****AL REPETIR EL MACRO QUIERO Q EL TEXTO SEA EL D LA CELDA A1 y no el valor que se crea al general el macro en este caso ="textoceldaA1"

'
Range("A1").Select
ActiveCell.FormulaR1C1 = "textoceldaA1"
Range("A10").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=textoceldaA1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub