Makro, der kopier og Finder det der er kopierer.

Jeg har lavet en makro, der kopierer der hvor jeg står.
Den skal nu gå over i en anden celle. Men makroen anvender den værdi den blev kopieret med første gang. Se rækken Cells.Find.


Sub Find_førværdi()
'
' Find_førværdi Makro
'
' Genvejstast:Ctrl+q
'
    Selection.Copy
    Windows("Grundark.xls").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
' her skal der stå stå en funktion, der paster den værdi, der lige 'er blevet copy. Men den vælger den oprindelige værdi.
    Cells.Find(What:="HVAD SKAL DER STÅ HER", After:=ActiveCell, LookIn _
        :=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub

Makro, der kopier og slår den værdi op, der er kopieret.