sub rotate()
dim i, x as integer

x = 1

do until sheets("Calc").cells(x,1) = ""

i = 1

do until sheets("Calc").cells(i,2) = sheets("Calc").cells(x,1)
i = i + 1
loop

x = x + 1
loop

end sub


Basically, I want to check one list with another, or similar, and I
generally want to look down a column of values until I get the specific line
that the value is copied.
Also, if I hit a blank cell I'll want to stop.

Imagine that column A is a collection of jobs, I want to put them in column
B, but want to remove the duplicates. So what i'm doing is going down A,
wanting to find where the duplicate in B is, and if its not there, to add it
to the bottom. So I really want to loop until the value matches, OR it hits a
blank cell...