Macro Code Paste into Column

Is there some way to paste this code in a column

Cells.Replace _
        What:="(A1)", Replacement:="(B1)", _
    LookAt:=xlWhole, MatchCase:=True

Have it take the content of the designated cell. Then I can just copy the entire column and paste it into macro?
Example I added where text normally would be (A1) (B1)