and how would i eliminate any blank rows at the bottom of the original list
from appearing at the top of the new list?

"Don Guillett" wrote:

One way
Sub invertlist()
rev = 1
For i = 5 To 1 Step -1
Cells(rev, "k").Value = Cells(i, "J").Value
rev = rev + 1
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"scott" wrote in message
...
if i have a list of names in rows a1:a40 and i want to copy that list to
cells b1:b40 BUT i want the new list to be the exact reverse of the first
one. i got the copy and paste down but how do i "reverse" or "invert"
the
selection? thanks in advance