Moveing Rows

[ytayta555]

Hi all , and a good day

I still have a problem . I need to move the content of rows ,
in the next order :
Rows :

A1 -
A2 -
A3 -
A4 -
A5 -

to became :

A1 = A5
A2 = A4
A3 = A3
A4 = A2
A5 = A1

 

[Per Jessen]

Hi

Try this:


Sub AAA()
Dim MyArr As Variant
Dim MyRange As Range

Set MyRange = Range("A1:A5")
MyArr = Array(MyRange.Value)
counter = UBound(MyArr(0))
For Each cell In MyRange
cell.Value = MyArr(0)(counter, 1)
counter = counter - 1
Next
End Sub

Regards,
Per

 

[ytayta555]

It don't remove entire row , but it work very
well for me .

Thank you very much , have a good evening

 

[Gord Dibben]

In B1 enter =INDEX($A$1:$A$5,5-(ROW(A1)-1))


Gord Dibben MS Excel MVP

 

[ytayta555]

On 22 feb., 19:15, Gord Dibben <gorddibbATshawDOTca> wrote:

Thank you , Gord . Is useful for me