Problem with copy selection during macro

Hi Guys
I have a little problem here. I want to use a macro to find a number in column H that is in the copy selection and delete the row the given number is in. However when i try to run the macro, it just writes the number of the actual number that the macro was "programmed" with indstead of the number in copy selection.
Can you help me solve this problem. Simple part of the code looks like this.

Please Login or Register  to view this content.

However what i would want should be like this, but i gives me an error.

Please Login or Register  to view this content.

Can someone please help me here
The Macro works perfectly fine and as intended as long as i give it the number - 24 to erase - in this case. However the 24 should be anything the macro finds to delete indstead of just a 24.

Hope somebody can help me out here

What do you mean by "copy selection"? Have you already done a copy? If so, this would be "clipboard contents". Or have you just done a selection with the intent to do a copy? If so, this would be "selection."

Your example gives an error, of course, because it is looking for the string

"Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False"

which it won't find.

Please show all of your code to give the context of what you are trying to do.

You may find this example helpful (which I have adapted). You must set a reference to Microsoft Forms 2.0 library.

Please Login or Register  to view this content.

How to use:

Please Login or Register  to view this content.

Hi, sorry for the late answer, been seperated from my work pc with the files for a couple of weeks.
The entire code looks like the following:
' Modtaget Makro
'
' Genvejstast:Ctrl+w
-'
- ActiveCell.Offset(0, 20).Range("A1").Select
- ActiveCell.FormulaR1C1 = "=NOW()"
- ActiveCell.Select
- With Selection.Font
- .ThemeColor = xlThemeColorDark1
- .TintAndShade = 0
- End With
- Selection.Copy
- ActiveCell.Offset(0, -20).Range("A1").Select
- Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
- xlNone, SkipBlanks:=False, Transpose:=False
- ActiveCell.Offset(0, -5).Range("A1:P1").Select
- With Selection.Font
- .Color = -4165632
- .TintAndShade = 0
- End With
- Selection.Copy
- Sheets("Sidst Opdateret").Select
- Application.Goto Reference:="R5C1"
- Selection.Insert Shift:=xlDown
- ActiveCell.Select
- Sheets("Opgave Liste").Select
- ActiveCell.Select
- Application.CutCopyMode = False
- ActiveCell.Rows("1:1").EntireRow.Select
- Selection.Copy
- Sheets("Til Montering").Select
- Application.Goto Reference:="R3C1"
- ActiveCell.Rows("1:1").EntireRow.Select
- Selection.Insert Shift:=xlDown
- Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
- xlNone, SkipBlanks:=False, Transpose:=False
- ActiveCell.Offset(0, 7).Range("A1").Select
- Application.CutCopyMode = False
- Selection.Copy
- Sheets("Til Levering").Select
- Application.Goto Reference:="R1C8"
- Cells.Find(What:="24", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
- xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
- False, SearchFormat:=False).Activate
- ActiveCell.Rows("1:1").EntireRow.Select
- Application.CutCopyMode = False
- Selection.Delete Shift:=xlUp
- ActiveCell.Select
- Sheets("Til Montering").Select
- ActiveWorkbook.Worksheets("Til Montering").Sort.SortFields.Clear
- ActiveWorkbook.Worksheets("Til Montering").Sort.SortFields.Add Key:= _
- ActiveCell.Range("A1:A9"), SortOn:=xlSortOnValues, Order:=xlAscending, _
- DataOption:=xlSortNormal
- With ActiveWorkbook.Worksheets("Til Montering").Sort
- .SetRange ActiveCell.Offset(-1, -7).Range("A1:L11")
- .Header = xlYes
- .MatchCase = False
- .Orientation = xlTopToBottom
- .SortMethod = xlPinYin
- .Apply
- End With
- ActiveCell.Offset(0, -7).Range("A1").Select
- Sheets("Opgave Liste").Select
- ActiveCell.Select
- Application.Goto Reference:="R2C2"
- Selection.Copy
- ActiveCell.Offset(1, 0).Range("A1").Select
- Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
- xlNone, SkipBlanks:=False, Transpose:=False
- ActiveCell.Offset(-1, -1).Range("A1").Select
- Application.CutCopyMode = False
-End Sub