To Search specific a cell value and move to another column

To Search specific a cell value and move to another column

The specific value that is looking is the Time value that has time

The column b with specific value will be move to column a

Sub Findandcut()
    Dim row As Long

    For row = 2 To 100000
        ' Check if "save" appears in the value anywhere.
        If Range("b" & row).Value Like "*Time*" Then
            ' Copy the value and then blank the source.
            Range("A" & row).Value = Range("b" & row).Value
            Range("B" & row).Value = ""
        End If
    Next

End Sub