Excel VBA search

Question

Am starting a new project and new to excel VBA, i need help trying to search for specific number through entire worksheet containing 60 columns and 200 number of rows. am trying to search for a specific number for example number starting with 9 once found copy that column and the adjust column on the right then paste to another workbook

i found the following macro online, works fine searching for the number. but but i do not know how to stop the the macro from changing the number to answered,

Dim Sh As Worksheet
Dim Loc As Range

For Each Sh In ThisWorkbook.Worksheets
    With Sh.UsedRange
        Set Loc = .Cells.Find(What:="9")
        If Not Loc Is Nothing Then
            Do Until Loc Is Nothing
                Loc.Value = "Answered!"
                Set Loc = .FindNext(Loc)
            Loop
        End If
    End With
    Set Loc = Nothing
Next

End Sub

Answer 1

等待大神答复