Søg-og-erstat makro

Hej Eksperter.

Jeg har indspillet nedenstående makro med en søg-og-erstat funktion.
Derefter har jeg forsøgt at rette den til, så den skulle tage parametrene fra et par celler, men det virker ikke.
Er jeg for optimistisk, når jeg tror det muligt at hente søgeparametrene fra en celle.
Det skal måske lige tilføjes, at cellen indeholder en liste.

Sub Test()
'
' Test Makro
'
    Range("B4:I23").Select
    Selection.Replace What:="C2", Replacement:="B2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Range("B2").Select
    Selection.Copy
    Range("C2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B2").Select
    End Sub