VBA find and move text in workbook

This should be close.

Sub FindSomeText()
  If InStr([cell range], "[string you're looking for]")
  Range("[cells your cutting]").Cut Range("[cells your pasting]")
End Sub

Thanks, Andrew Porter!
I have the following - but I can't figure out the last step to OFFSET one cell down from the Selected cell.


Sub moveutilities()

    Cells.Find(What:="60200 · Auto", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Application.CutCopyMode = False
    Selection.Cut
    Range("A257").Select
    ActiveSheet.Paste
End Sub

Hi,
See example below:

        Set c1 = Worksheets("Sheet2").Range("A:A").Find("60200 - Auto" )
       
        If Not c1 Is Nothing Then
           'Further do copy here
        End If

Select allOpen in new window

Thanks Peter Chan, but not dynamic. I have to do this for each worksheet in workbook and don't know where the text will be.

I thought this would work, but it just moves the 60200-Auto multiple times in the same sheet - rather than moving down 1 row in each sheet!  :)

Sub moveutilities()
    Dim Ws As Excel.Worksheet
    For Each Ws In ThisWorkbook.Worksheets
   
    Cells.Find(What:="60200 · Auto", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Application.CutCopyMode = False
    Selection.Cut
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
        Next
End Sub