Hi,

If I understand your requirements correctly try this. Because it deletes
data try on a test workbook first. Right click the sheet tab, view code and
paste this in and run it.

Sub transpose()
Dim deleterange As Range
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For x = 2 To lastrow Step 2
Cells(x, 1).Offset(-1, 1).Value = Cells(x, 1).Value
If deleterange Is Nothing Then
Set deleterange = Cells(x, 1).Resize(, 2)
Else
Set deleterange = Union(deleterange, Cells(x, 1).Resize(, 2))
End If
Next
If Not deleterange Is Nothing Then
deleterange.Delete Shift:=xlUp
End If
End Sub

Mike

"Hilvert Scheper" wrote:

Hi There,
I would really appreciate some help on the next subject:
How do I transpose This:
1
1
2
2
3
3

To:
1 1
2 2
3 3

This is a (Combined?) Transpose of 1 Column into Rows, where the data
decides how many Columns I need....

Many Thanks in advance!!!