Copy Cell data if adjacent cell is empty

Can I ask for a sample code for my problem. I want to copy data in the cell if the following cell is empty.

Sample

Column A	Column B	Column C
Orange
Red	ABC:Red

Now when I run the code that im asking this what the output should look like

Column A	Column B	Column C
Red	ABC:Red	Orange

Since Orange is in Cell A and Cell B is empty then Cell A data is moved to Cell C and then those under them will be pushed upward as if the user has deleted a cell to move the data upwards,

Hope you get my point.

Hi r,

Try this:

Sub rflor(): Dim A As Range
For Each A In Range("A:A")
If A <> "" Then
If A.Offset(0, 1) = "" Then _
    A.Cut A.Offset(0, 2)
End If: Next: End Sub

Hi r,

You can do this instead:

Sub rflor(): Dim A As Range
For Each A In Range("A:A")
If A <> "" Then
If A.Offset(0, 1) = "" Then
A.Offset(0, 2) = A: A = ""
End If: End If: Next: End Sub