Visual Basic Colar dados no formulário de acordo com valor de textbox

[Jefferson TS]

Olá. Como faço pra repetir o processo de lançar dados do formulário na base de dados de acordo com número de vezes indicado na textbox.
Por exemplo: cliente(fulano), guia(99999), sessões(10), = colocar cliente e guia em 10 linhas na base de dados:
fulano   9999999

fulano   9999999

fulano   9999999

.....

CONTROLE NOVO.rar

Private Sub CommandButtonSALVAR1_Click()
Sheets("fisio_presenças").Select
 
Range("A60000").End(xlUp).Offset(1, 0).Select

ActiveCell.Offset(0, 0).Value = Me.ComboBoxPACIENTE.Value
ActiveCell.Offset(0, 1).Value = Me.TextBoxGUIA.Value

NOME = UserFormFichaFisio.ComboBoxPACIENTE.Value
MsgBox "Ficha para o(a) paciente " & NOME & " aberta com sucesso", vbInformation, "Nova ficha"

Me.ComboBoxPACIENTE = Empty
Me.TextBoxGUIA = Empty
Me.TextBoxN_SESSÕES = Empty

Sheets("FISIO_PRESENÇAS").Select
Range("A4").End(xlDown).Select
ComboBoxPACIENTE.SetFocus

End Sub

 

[Midori]

@Jefferson TS Para repetir pode usar resize,

 

Dim Linha   As Long
Dim Sessoes As Integer

Sessoes = Val(Me.TextBoxN_SESSÕES)
    
With [Tabela_PRESENÇAS]
    Linha = .ListObject.ListRows.Count
    .Cells(Linha + 1, 1).Resize(Sessoes) = Me.ComboBoxPACIENTE
    .Cells(Linha + 1, 2).Resize(Sessoes) = Me.TextBoxGUIA
End With