Moving cells around in a worksheet

[LDale]

I have a worksheet with the word "Provider:" in column C that appears in ramdon rows. I need to move the contains of the cell in column D that follows the word "Provider:" in column C. I need to move it column B and down one row.

Appreciate any assistance!

 

[VoG]

Try

Sub Amove()
Dim LR As Long, i As Long
LR = Range("C" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("C" & i)
        If .Value = "Provider" Then .Offset(, 1).Cut Destination:=.Offset(1, -1)
    End With
Next i
End Sub

 

[LDale]

Thanks works great! Again thanks.