调试好之后，再打开就会报错

443589683

各位大神请教下，下面这个程序  我调试好之后，再运行就会出现错误，困扰很久了 解决不了。

Option Explicit

Sub 保存()
Dim rngs1 As Range, rngs2 As Range
Set rngs1 = Range("B5", [G5].End(xlDown))
Set rngs2 = Worksheets("工时统计表").[B65536].End(xlUp)(2, 1)
If rngs2(1, 11).EntireColumn.Find([b2]) Is Nothing Then
    rngs1.Copy rngs2
   rngs2(1, 9).Resize(rngs1.Rows.Count, 1) = rngs1(1, 9)
   rngs2(1, 8).Resize(rngs1.Rows.Count, 1) = rngs1(1, 8)
   rngs2(1, 10).Resize(rngs1.Rows.Count, 1) = rngs1(1, 10)

    rngs2(1, 11).Resize(rngs1.Rows.Count, 1) = [b2].Value
    rngs2(1, 12).Resize(rngs1.Rows.Count, 1) = [f2].Value

Else
MsgBox "已经保存过了"
End If
End Sub