Çözüldü textboxa girilen verilerin hücre sayısı sınırlandırılması

ben burda ekleme ve güncelleme yapıcam ancak 1 ayda en fazla 31 gün olduğu için ben en fazla 31. hücreye kadar veri girişi ypmak istiyorum 32. ve devamına veri gişirini engellemek için commandbutton a kod satırı yazmak mümkünmü

Private Sub ComboBox1_Change()
On Error Resume Next
ListBox1.RowSource = ComboBox1.Text & "!I233"
With Me.ListBox1
ListBox1.TextAlign = fmTextAlignCenter
.ColumnHeads = True
.ColumnCount = 7
.ColumnWidths = "35,70,70,70,75,70,30"
End With
ListBox2.RowSource = ComboBox1.Text & "!Q2:T2"
With Me.ListBox2
ListBox2.TextAlign = fmTextAlignCenter
.ColumnHeads = True
.ColumnCount = 4
.ColumnWidths = "62,62,62,30"
End With
End Sub

Private Sub CommandButton1_Click()
Unload Me
anasayfa.Show
End Sub

Private Sub CommandButton5_Click()
ThisWorkbook.Save
MsgBox "Dosya kaydedildi" & Chr(10) & deg, vbInformation, "ZONGULDAK BELEDİYESİ"
End Sub

Private Sub CommandButton6_Click()
On Error Resume Next
If Me.ComboBox1.Value = "" Then
MsgBox "Lütfen Ay Seçiniz", vbCritical
Exit Sub
End If
Application.Dialogs(xlDialogPrinterSetup).Show
ThisWorkbook.Sheets(ComboBox1.Value).Range("I:T").PrintOut copies:=1
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub ListBox2_Click()

End Sub

Private Sub TextBox1_Change()

End Sub
Private Sub UserForm_Activate()

Dim e As Long
For e = 2 To Sheets("Sayfa1").Range("A1000000").End(xlUp).Row
Me.ComboBox1.AddItem Sayfa1.Cells(e, 1).Value
Next e

Call Refresh_Data
End Sub
Sub Refresh_Data()
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub