address function into macro

Hi,

How can I add Address function into macro.
here is a simple macro. How can I replace cell value "G26" for this function "=Address(G17, H17)" so this function will find correct cell value.?

Sub Macro1()

'
Range("D26").Select
Selection.Copy
Range("G26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Best regards T