Lista desplegable con macro Autorrelleno

Tengo la macro para insertar una lista desplegable con macro

Sub Lista_desplegable_sin_duplicados()
  Dim dic As Object
  Dim a As Variant
  Dim i As Long
  '
  Set dic = CreateObject("Scripting.Dictionary")
  a = Sheets("precios").Range("A2", Sheets("precios").Range("A" & Rows.Count).End(3)).Value
  For i = 1 To UBound(a)
    If a(i, 1) <> "" Then dic(a(i, 1)) = Empty
  Next
  '
  With Range("A12").Validation
    .Delete
    .Add xlValidateList, xlValidAlertStop, xlBetween, Join(dic.keys, ",")
  End With
End Sub

El problema es que no funciona el autorrelleno. La celda tiene marcado el autocompletar

Habria alguna manera de que agregando algun codigo fuese autocmpletar, para no tener que escribir el texto completo