Как в макросе указывать текущее значение ячейки.

[Nick_odessa]

Добрый день.
Прошу помощи. Задача следующая я написал макрос все бы работало но я не знаю как указать макросу текущее значение ячейки а не значение которое было при записи макроса.
(что бы при запуске макроса он брал значение которое на данный момент находится в ячейке, эти значения постоянно меняются после каждого запуска макроса)

Sub попытка1()
'
' попытка1 Макрос
'

'
Range("A1").Select
ActiveCell.FormulaR1C1 = "А1 лист1"
Sheets("Лист2").Select
Columns("A:F").Select
ActiveCell.Replace What:="AX-0001", Replacement:="А1 лист1", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Find(What:="AX-0001", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Replace What:="AX-0001", Replacement:="А1 лист1", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.FindNext(After:=ActiveCel l).Activate
Sheets("Лист1").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

вместо "А1 лист1" надо указывать текущее значение этой ячейки

Благодарю за внимание.

[staniiislav]

Здравствуйте, выложите пример

[Nick_odessa]

Сообщение от staniiislav

Здравствуйте, выложите пример

пример выложил в первом сообщении