
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