Looking for a 'Do Until' script.....

[andrew.k]

Hi All,
I am pretty new to VBA's and need some help on a simple 'Do Until' Loop.
I need a macro that will use relative cell references to transpose 2 columns of data into one row. I need it to end when the next row (in the columns) is empty because the data sets are anywhere from 20-300 rows. It needs to be relative because each time I input new data it must be on the row below the previous. This is what I have so far. It does what it should for the first line, but wont move through subsequent lines.

Sub TRYOUT()
'Dim n As Integer
n = 1

' TRYOUT Macro
'

'
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(n, 0).Range("A1:B1").Select
Selection.Cut Destination:=ActiveCell.Offset(-n, 2 * n).Range("A1:B1")
n = n + 1
Loop
End Sub

[AB33]

Andrew,
Welcome to the forum!
Please use code tags with your code as per forum's rule.
Avoid Do until/while loops if you can, instead use for next

[andrew.k]

Hmmm, For some reason that didnt seem to do anything on my system.

[andrew.k]

So....I figured it out in case anyone cares. the code is as follows

Please Login or Register  to view this content.