Moving cells around in a worksheet

LDale

New Member
Joined
Apr 2, 2011
Messages
26
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

Legend
Joined
Jun 19, 2002
Messages
63,651
Try

Code:
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
 

Forum statistics

Threads
1,082,646
Messages
5,366,737
Members
400,917
Latest member
BlueBeerR

Some videos you may like

This Week's Hot Topics

Top