Hi all,

I am trying to write a VB module in Excel that converts rows into columns.
The data is distributed across 10-50 rows instead, I'd like to see 10-50
columns.
This is the code that I used but doesn't seem to be working for me:

i = Range("A50000").End(xlUp).Row
Do
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
Cells(i, 2).Resize(1, 50).Cut Cells(i - 1, 3)
Rows(i).Delete
End If
i = i - 1
Loop Until i < 2
Columns.AutoFit

Thanks in advance,

Adel