![](https://xlncad.com/wp-content/uploads/2020/11/4.-Reverse-List-VBA.gif)
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
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