excel 宏撤销的问题， 来个高手！！！

由于excel没有宏撤销功能，所以使用了以下先记录后添加多一个按钮作为还原功能，但是需要记录的表框实在是太多，如果一个个添加代码太长了，如何能做到比如A1~A5则有一个简洁的代码记录，需要记录的表框有
B1,B4,E4,I4,C6,E6
B8~B100,C8~C100,D8~D100,E8~E100,I8~I100,K8~K100
求解！！！！！！！！！！！！！！！！

Option Explicit
Private undotemp1 As Variant
Private undotemp2 As Variant
Private undotemp3 As Variant
Private undotemp4 As Variant
Private undotemp5 As Variant

Private Sub CommandButton1_Click()
undotemp1 = Range("A1")
undotemp2 = Range("A2")
undotemp3 = Range("A3")
undotemp4 = Range("A4")
undotemp5 = Range("A5")
Range("A1") = Range("A1")
Range("A2") = Range("A2")
Range("A3") = Range("A3")
Range("A4") = Range("A4")
Range("A5") = Range("A5")
Application.OnUndo "撤销", "myundo"
End Sub

Private Sub CommandButton2_Click()
Range("A1") = undotemp1
Range("A2") = undotemp2
Range("A3") = undotemp3
Range("A4") = undotemp4
Range("A5") = undotemp5
End Sub

每次另存一次不行？

用数组 arr1 =range("b8:e100") range("b8") =arr1(1,1) range("e100")= arr1(93,4)