求助vba八段高手解惑

双色铁旗

Sub 按钮2_Click()
Dim lastrow%
lastrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheet1.Range("A2:G166").Copy Sheet2.Range("A" & lastrow)
With ActiveSheet.UsedRange
.Value = .Value
End With
Dim Cell As Range
Set Cell = Cells(Rows.Count, 1).End(xlUp).Offset(2)
Cell.Resize(1, 2).Merge
Cell.Value = Sheet1.[F1] & Sheet1.[G1]
End Sub
这代码原来在sheet2中执行记录备份，因不方便将此代码放在sheet1中执行，提示定位找不到，然后试着添加sheet1的多种表达均无果，本人水平太有限，求大神解决下难题，详见文档表达，在此先多谢大神们相助！（兰色区域代码通不过，其他暂时没问题）

jiangxiaoyun

我是青铜Ⅲ吧。。。。

abc123281

唉  本人还属于vba一段    得赶快离开

双色铁旗

段位整太高了吗？百度发了两次蒙圈了两位，无奈...

双色铁旗

晕了两天了，大神走过路过别错过啊，帮俺度过这艰难的一刻吧...

双色铁旗

经常做记录备份的可以下载这个东东，放到记录备份当前表位运行起来非常迅捷、保留原格式、数字化、末尾带记录段落标签。

双色铁旗

大神们出来秒秒局吧！！！！

双色铁旗

看下载量，俺的神贴没有飞走，静待高手的秒局中...

双色铁旗

Cell.Value = Sheet1.[F1] & Sheet1.[G1]
这串代码好似也需定位，大神们注意他的漂移位

双色铁旗

挂了一上午了，这串看似短小的串码不会彪悍到需要九段高手出面吧...