Help! Trying to replace column with another and cannot resolve-please
advise
Thanks


Sub Macro6()
'
' Macro6 Macro
'

'
ActiveCell.Offset(-2, 0).Range("A1:Z2").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-5
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Range("A1:Z2")Find(!H)Replace [!G]
End Sub