A minor simplification to my post:

Sub RevData()
Dim rng As Range
Dim Arr As Variant
Dim a As Integer, b As Integer

Set rng = Range("A1:A10")
Arr = rng.Value
a = rng.Count
For b = a To 1 Step -1
rng(a - b + 1, 1) = Arr(b, 1)
Next
End Sub

Regards,
Greg

"Greg Wilson" wrote:

Try this:

Sub RevData()
Dim rng As Range
Dim Arr As Variant
Dim a As Integer, b As Integer, c As Integer

Set rng = Range("A1:A10")
Arr = rng.Value
a = 0: b = rng.Count
For c = b To 1 Step -1
rng(b - c + 1, 1) = Arr(c, 1)
Next
End Sub

Regards,
Greg