Loop to find a cell, then copy offset paste

Welcome to the forum.

Try this:

    Dim r       As Range

    Do
        Set r = Columns(1).Find("200 *")
        If r Is Nothing Then Exit Do
        r.Cut Destination:=r.Offset(-1, 1)
    Loop