How do I make a cell's contents equal to another cell's contents with macro program?

I am writing macros that are run when you select an item from a list. Then the macro inputs a particular cell’s contents into another cell. The problem is the recording function of macro creates programming that causes serious problems in spreadsheet if I add or delete cells.

Here is an example of a macro:
Sub AZWagePump3()
'
' AZWagePump3 Macro
' Macro recorded 8/19/2005 by Systems Administrator
'

Range("B25").Select
ActiveCell.FormulaR1C1 = "=R[181]C"
Range("C25").Select
ActiveCell.FormulaR1C1 = "=R[181]C"

End Sub


I am need a program that in essence is C4 = D4 so that what ever cell I change around it the macro still functions correctly.