Replacement als nicht-String

ich muss bei einem Replacement, eine Zelle als Wert eingeben. Weiß jemand wie das funktioniert?

Hier der Code:
Sub suchen_ersetzen()
Cells.Replace What:="BSP000101", Replacement:="$A$2", 'so soll es sein, geht aber nicht, da String erforderlich
LookAt:=xlPart _
, SearchOrder:=xlByColumns, MatchCase:=False
ActiveWindow.SmallScroll Down:=0
Range("D8:D39").Select
End Sub