Macro to reverse a list in Excel

---

Sub Reverse_List()
Dim i As Long
Dim length As Long
length = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To length
Cells(i, 2).Value = Cells(length, 1).Value
length = length - 1
Next i
End Sub

---

How to use codes shared here?