Conversion from Equation to Values not a normal -Special paste scenario

[Xcel90pro]

I"m writing a code to search for a spefic word to find the amount of rows need then convert all of the formulas in two columns down to the row found early from formulas/macro equations to values. Here is what i got so Far just cant figure out the convert part inside the do loop

Thanks Guys

Sub converttt()

'
' converttt Macro
'


''Sub Find_Accounts()
Dim Found As Range
Dim sMessage As String
Dim s As String
Dim d As String
'
   Set Found = Columns("A").Find(What:="Orkis", After:=[A1], LookIn:=xlFormulas, _
   LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False, SearchFormat:=False)
   If Found Is Nothing Then
       sMessage = "No Match Found for ""Orkis""" & vbCr
   Else
       sMessage = """Orkis"" found in cell " & Found.Address & " Row: " & Found.Row & vbCr
       s = Found.Address
   End If
   MsgBox sMessage

   Do until activecell.Value = s

       ActivateCell.Offset(1.0).select
    Loop
End Sub

[Bob Phillips]

Sub converttt()
Dim Found As Range
Dim sMessage As String
Dim s As String
Dim d As String
'
    Set Found = Columns("A").Find(What:="Orkis", After:=[A1], LookIn:=xlFormulas, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
    If Found Is Nothing Then
        sMessage = "No Match Found for ""Orkis""" & vbCr
    Else
        s = Found.Address
        sMessage = """Orkis"" found in cell " & s & " Row: " & Found.Row & vbCr
    End If
    MsgBox sMessage


    With Range(ActiveCell, Found)
    
        .Value = .Value
    End With
End Sub

[snb]

Sub M_snb()
  on error resume next
   with range(cells(2,1),Columns(1).Find("Orkis", cells(1),,1))
      .value=.value
    end with

    msgbox iif(err.number<>0,"not ","") & "successful"
 End Sub

The VBA code tags are a disaster.