copy and paste in macro

[phillyd023]

I have created a macro that works via the recording feature which copies the information someone types in cell A1 and the pastes that into the FIND feature (CTRL+F). the entire macro works except for 1 problem ...... the macro keeps pasting whatever information was in cell A1 when I created the macro ..... not the information "currently" in cell A1.

Is there a way to make the macro copy and paste the current information?

This part of the macro goes as follow:

highlight A1
CTRL C
CTRL F
highlight input space next to FIND
CTRL V

[phillyd023]

Here is the macro if it helps


Sub Macro1()
'
' Macro1 Macro
'

'
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A20:B20").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
Range("A236").Select
ActiveWindow.SmallScroll Down:=-204
Rows("20:20").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Sheet4").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet4").Sort.SortFields.Add Key:=Range("A21:A268" _
), SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Sheet4").Sort.SortFields.Add Key:=Range("B21:B268" _
), SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet4").Sort
.SetRange Range("A20:I268")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub