Snasui Excel Forum

Code: Select all

Sub undo()
Dim ar() As String
Dim r As Range
Dim i, lr As Integer
i = 1
On Error Resume Next
lr = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

Set r = Range("B2:B" & lr)
        For Each r In r
                ReDim Preserve ar(i) As String
                ar(i) = r.Value
                i = i + 1
        Next r
Range("B:B").ClearContents
         For i = 1 To UBound(ar) + 1
                 Cells(i + 1, 2).Value = ar(i + 1)
         Next i
         
End Sub

Code: Select all

Sub undo()
    Range("b" & Rows.Count).End(xlUp).ClearContents
End Sub