不会写vb求大神给一段对比终止执行的代码

Sub 按钮2_Click()
'
' 按钮2_Click 宏
' 复制引用区粘贴至累计记录表对比7日增减
'
' 快捷键: Ctrl+q
'
Range("D30").Select
Selection.Copy
Range("P13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C13:P13").Select
Application.CutCopyMode = False
Selection.Copy
Range("B13").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
If Range("O13") = Range("P13") Then Exit Sub
End Sub

网页链接 [金山文档] 8月24日库存日报表.xlsm 这个是我做的简表，每日复制新建当日记录表存放