Search Value

Hi, that second section of code was from me, and it works fine for what you said you were doing in the post where you asked for it. However for the problem you have here you do not need it.
In your original code you don't need to be activating, or selecting cells to do the core functions, just at the end when you want the selection moved to the cell that was found (for some reason), so it would need to be like this:

Sub findnext()
Dim found As Range

On Error Resume Next
Set found = Cells.Find(What:="ASK Training Managers", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
On Error GoTo 0
        
' Make sure that something was found
If found Is Nothing Then Exit Sub

' Copy from an offset of (-5,2) to "AC12"
found.Offset(-5, 2).Copy Destination:=ActiveSheet.Range("AC12")

found.Select
End Sub

EDIT
I see you have made another post. It doesn't help people to help you when you keep changing the code function!
The first code you posted has no looping, the second code has suddenly got a loop in it, and the absolute destination of "AC12" has turned variable.

Please detail, (in words, not code), what EXACTLY you are trying to achieve, and THEN we can offer assistance.