I am using Microsoft Excel 2007. I have an account number in C:2.
Associated with this account number is a set (in a column) of 3 digit
numbers in W:2, W:3, W:4, W:5. When there are multiple 3 digit numbers
in Column W, there are blank spaces under C:2. When the next account
number appears (C:6), it has it's own set of 3 digit numbers. I need
to take each 3 digit number associated with the account number and
move them into adjacent columns on the same line as the account
number. So, W:3 would move to X:2, W:4 would move to Y:2, W:5 would
move to Z:2 and so on. I assume I need a VB solution. Can anyone help
me with this? Thank you very much in advance.

Sub Macro1()
'assumes target sheet is ActiveSheet
'assumes data starts in row 1
'works in Excel 2002
Dim iCt As Integer
Dim iRow As Integer

iCt = 2
iRow = 1
iCol = 24
Do
If Range("C" & iCt) = "" Then
Cells(iRow, iCol) = Range("W" & iCt)
Range("W" & iCt).Clear
iCol = iCol + 1
Else
iCol = 24
iRow = iCt
End If
iCt = iCt + 1
Loop Until Range("W" & iCt) = ""
End Sub

Hth,
Merjet

On Jan 8, 11:20*am, merjet <mer...@comcast.net> wrote:
> Sub Macro1()
> 'assumes target sheet is ActiveSheet
> 'assumes data starts in row 1
> 'works in Excel 2002
> Dim iCt As Integer
> Dim iRow As Integer
>
> iCt = 2
> iRow = 1
> iCol = 24
> Do
> * * If Range("C" & iCt) = "" Then
> * * * * Cells(iRow, iCol) = Range("W" & iCt)
> * * * * Range("W" & iCt).Clear
> * * * * iCol = iCol + 1
> * * Else
> * * * * iCol = 24
> * * * * iRow = iCt
> * * End If
> * * iCt = iCt + 1
> Loop Until Range("W" & iCt) = ""
> End Sub
>
> Hth,
> Merjet

What changes to the code have to be made if the data begins on Row 2?