Alternatively :-
Dim rng As Range, c As Long
Application.ScreenUpdating = False
Columns(1).Insert
Set rng = Range([B1], [B65536].End(xlUp)).Offset(0, -1)
c = rng.Cells.Count
With rng
.Cells(1, 1).Value = 1
.Cells(1, 1).AutoFill Destination:=rng, Type:=xlFillSeries
.Copy .Offset(c, 0).Resize(c + c, 1)
Rows("1:" & c * 3).Sort Key1:=Range("A1")
.EntireColumn.Delete
End With
This message was edited by Abdc on 2002-03-21 16:25