Probablemente haya un método mejor, pero puedes probar con esta macro:
Código vb:
Ver originalSub AgregarFormula(Rango As Range, Texto As String)
Dim Celda As Range
For Each Celda In Rango
Celda.Value = "=" & Celda.Value & Texto
Next Celda
End Sub
Y la llamas así:
Código vb:
Ver originalAgregarFormula Range("A1:A1000"), "*Proveedores!$F$6"