Numerazione progressiva in textbox all'avvio di una userform ed incremento numero della textbox dopo inserimento

Ciao a tutti, sono nuovo del forum ed mi sto approcciando a VBA, vi chiedo cortesemente se potete aiutarmi perchè non riesco a risolvere questo problema:
1) ho una userform che attivo tramite un pulsante in un foglio excel e vorrei che lo stesso pulsante oltre che ad aprire la userform mi inserisse in una TextBoxNumeroRicevuta della userform il numero successivo libero che ho nella colona A (la colonna A ha una numerazione progressiva) il codice che ho ora per l'apertura della Userform è questo:

Sub MASCHERA()
UserForm1.Show
End Sub;

2) quando ho compilato la userform ed cliccato sul pulsante per l'inserimento vorrei che la TextBoxNumeroRicevuta del numero aumentasse di uno per procedere con il record successivo il codice che ho ora è questo:

Private Sub CmdInserisci_Click()
Dim ur As Long
ur = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ur + 1, 1).Value = TextBoxNumeroRicevuta.Value
Cells(ur + 1, 2).Value = CDate(TextBoxData.Value)
Cells(ur + 1, 3).Value = TextBox2.Value
Cells(ur + 1, 4).Value = TextBoxNome.Value
Cells(ur + 1, 5).Value = ComboBoxTotale.Value
Cells(ur + 1, 6).Value = TextBox1.Value
Cells(ur + 1, 7).Value = ComboBoxMese.Value
End Sub

Vi ringrazio in anticipo per i consigli che mi darete.
Io sono 2 giorni che ci lavoro ma non trovo la soluzione

SpartanMobility, 30/12/2016 18.33:

---

vorrei che lo stesso pulsante oltre che ad aprire la userform mi inserisse in una TextBoxNumeroRicevuta della userform il numero successivo libero che ho nella colona A (la colonna A ha una numerazione progressiva) il codice che ho ora per l'apertura della Userform è questo:

---

non è molto chiaro come trovare il numero successivo libero, allega un file di esempio

Ecco il file di cui parlavo, scusatemi per la mia poco chiarezza.

però nel tuo file ci sono 2 userform uguali, non ho capito qual'è quella buona

per incrementare il num della ricevuta dopo l'inserimento basta scrivere
TextBoxNumeroRicevuta = iRow
invece di
TextBoxNumeroRicevuta = ""

Caro Patel45 problema risolto grazie al tuo contributo, ho aggiustato il codice con i tuoi consigli ed ho risolto il problemi.
Scusami per il ritardo con cui ho risposto.