Reversing the order of cells

[dave_br]

is it possible to reverse a list of cells?

i.e. if i have a list of cells a1-a5 for arguements sake, is it possible to put the information in cell a5 into a1, a4 into a2 and a3 would stay the same?

i dont think i can filter this or sort the data as it is random entries.

dave

 

[Jonmo1]

You can put numbers in an adjescent column...
B1:B5 = 1,2,3,4,5

Then sort Descending by column B


Hope that helps.

 

[Tom Urtis]

With that scenario, in cell B1 enter and copy down to B5:

=OFFSET($A$1,5-ROW(),0,1,1)

 

[VoG]

Try like this

Sub atest()
Dim LR As Long, i As Long, j As Long
Dim X
LR = Range("A" & Rows.Count).End(xlUp).Row
X = Range("A1:A" & LR)
For i = UBound(X, 1) To LBound(X, 1) Step -1
    j = j + 1
    Range("A" & j).Value = X(i, 1)
Next i
End Sub