Search Value

I have modified my code to this one ,

the new problem is it's just work for one step and stop , that mean i think my loop doens't work fine .

Dim dstrng As Range
Dim firstaddx As String
Dim n As Long
Dim c As Long


Sub findnext()

Set dstrng = Range("AD20")
n = 0
c = 0

Do

Cells.Find(What:="ASK Training Managers", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
   Cells.findnext(After:=ActiveCell).Activate
    
ActiveCell.Offset(-5, 2).Select



    ActiveCell.Copy
   ActiveSheet.Paste Destination:=dstrng.Offset(c, 0)
   Application.CutCopyMode = False
   c = c + 1
   n = n + 1
 Loop While n = 10
   
 
End Sub