求VBA游戏全CG存档

sub 保存()
set sh= worksheets("表1")
with worksheets("表2") '表名自行修改，大小写敏感
mrow=.cells(rows.count,"a").end(3).row
.cells(mrow+1,1)=sh.[b2]
.cells(mrow+1,2)=sh.[b1]
.cells(mrow+1,3)=sh.[d1]
.cells(mrow+1,4)=sh.[d2]
end with
end sub
sub 清空()
set sh= worksheets("表1")
with sh
union(.[b1],.[b2],.[d1],.[d2]).clear
end with
end sub