Makro søge efter værdi

Hej alle,

Håber i kan hjælpe!

Jeg sidder og leger med en makro, som skal:
1. kopiere en celles værdi
2. gå over i et andet ark
3. søge efter den kopierede værdi i arket (i en tabel)
4. gå tilbage til første ark
5. indsætte værdien i den oprindelige celle

Umiddelbart lyder det omsonst, fordi den jo vil indsætte dne samme værdi som allerede står i cellen, men det er af en eller anden grund nødvendigt, for at en udregning kan laves.

Cellen hvor værdien står og kopieres fra og herefter sættes ind er i celle D25
Det første ark hvor D25 er i, kalder vi Ark1
Det andet ark der skal søges i, kalder vi Ark2

Når jeg har forsøgt at indspille en makro, så søger den altid efter den samme værdi.

VBA koden jeg får ved at indspille er således:

Sub Makro4()
'
' Makro4 Makro
'

'
    Range("D25").Select
    Selection.Copy
    Sheets("VareFlow").Select
    Cells.Find(What:="151148", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Kapacitetsforespørgsel").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub



Hvor 151148 er den værdi som den altid søger efter, men det skal ikke være den, men den man har kopieret fra D25.

Det skal være muligt at skrive forskellige tal i D25, da det fungerer som et søgefelt.