Move data based on criteria

[minette]

Hi all,

I am trying to write a macro that will move data from one cell to another, based on specific criteria.

I have data in columns A and B. Column A contains either the number 2 or 3. The macro goes down column A, and if it finds a 2, it should move the contents of the same row and column B into column C. And if it finds a 3 in column A, it should move the contents of the same row and column B into column D.

However, the code that I've come up with (from info online etc), moves the data from column A, not column B.

This is what I have so far:
Sub Movetest()
Dim r As Range
For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
If r.Value Like "[2]" Then
r.Cut r.Offset(-1, 3)
End If
If r.Value Like "[3]" Then
r.Cut r.Offset(-1, 4)
End If
Next
MsgBox "done"
End Sub

I also attach a small screenshot to indicate what the data looks like. I hope I've explained it well enough for someone to be able to help.

If anyone can help, I will be extremely greatful.

 

[Fluff]

Your code, description & image all seem to conflict, so entirely sure what you need.
Are you trying to move all odd rows (ie 1,3,5,7 etc) to col D & all even rows to col C?

 

[minette]

Hi, sorry no. I didn't explain it very well. Column A contains 2's and 3's. If there's a 2 in the cell, it should move the contents next to it in column B to a row higher and to column D. And if there's a 3 in the cell, it should move the contents next to it in column B to a row higher and to column E. Hope it makes more sense.

Here's a screenshot which will hopefully explain better.... thanks.

 

[Fluff]

Ok, in that case all you have to do is change the two lines where you cut the data to be like

r.Offset(, 1).Cut r.Offset(-1, 3)

 

[minette]

Excellent. That works perfecly, thanks.

 

[Fluff]

You're welcome & thanks for the feedback.