VBA保存后数据不稳定，经常性丢失不全

vito_wu

Private Sub CommandButton1_Click()
Dim nRow%, nRow1&
arr = Me.Range("b7:j21")
nRow1 = Me.Range("b7").End(xlDown).Row
CommandButton1.Enabled = False
If nRow1 > 23 Then Exit Sub
With Sheets("数据库")
    nRow = .Range("a65536").End(xlUp).Row + 1
    .Range("i" & nRow).Resize(nRow1 - 7, 9) = arr
    .Range("a" & nRow).Resize(nRow1 - 6, 1) = Range("j4")
    .Range("b" & nRow).Resize(nRow1 - 6, 1) = Range("j3")
    .Range("c" & nRow).Resize(nRow1 - 6, 1) = Range("e3")
    .Range("d" & nRow).Resize(nRow1 - 6, 1) = Range("e4")
    .Range("e" & nRow).Resize(nRow1 - 6, 1) = Range("h3")
    .Range("f" & nRow).Resize(nRow1 - 6, 1) = Range("h4")
    .Range("g" & nRow).Resize(nRow1 - 6, 1) = Range("b3")
    .Range("h" & nRow).Resize(nRow1 - 6, 1) = Range("b4")
End With
End Sub
Private Sub CommandButton2_Click()


  Dim response

  response = MsgBox("是否确定清空数据", vbOKCancel)

  If response = 1 Then

    Range("b7:b21,g7:g21,j7:j21,e7:e21,b3,b4,e3,e4,h3,h4,j3,j4").Select
    ActiveWindow.SmallScroll Down:=-144
    Selection.ClearContents
  Else
    Exit Sub '如果response的值不是1，退出过程
  End If


End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Enabled = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub


上面的代码是我拼接成的，本人是菜鸟。想通过固定模板录入数据，点控件保存后，存到本工作薄中另一张表做为数据库。那位大神帮我看看，哪里出了问题，
1.目前出现保存后数据库显示不全的情况
2.清空有弹框提示，保存目前还没有，想增加一个选项，是，否

chart888

附件呢