=REPT("x";A4)

Na célula A4 você põe 5.

Programação infelizmente não é uma "receita" pronta.O escopo/estrutura do que deseja é o que falei no seu post inicial de apresentação.
Um loop --> for..next..
Porem esse loop deve ser adaptado a sua realidade, ou seja a sua planilha/coluna/linha input de dados etc..
O básico:
For x=1 to NumVezesDesejado
instrução para salvar na planilha
next
No seu caso :
NumVezesDesejado e Txt_vagas--> val(txt_vagas.Text),
porque Val ?. Basicamente um TextBox passa o seu conteúdo como Texto/String Val e uma das funções de conversão de valores; maiores detalhes, no editor VBE, posicione o cursor sobre a palavra "Val" e tecle F1, ira abrir o help.
Instrução para salvar na planilha --> algo =/- sheets("Vagas").cells(numlinha,numcoluna).value=Txt_Função

Reinaldo

Até o procedimento para salvar esta tudo Ok!! O problema é o próximo passo!

Sheets("CADASTRO").Activate
        
    For X = 3 To 1000 
    
    If Cells(X, 1) = "" Then
    Y = X
   
    Exit For
    End If
    Next    
       
    Cells(Y, 1) = txt_Smo.Text
    Cells(Y, 4) = cbo_area.Text
    Cells(Y, 31) = Cbo_Funcao.Text
    Cells(Y, 2) = Txt_DtaSolicitacao.Text
    Cells(Y, 3) = Txt_DtaNessecidade.Text
    Cells(Y, 5) = cbo_Solicitante.Text
    Cells(Y, 6) = Cbo_Disciplina.Text

Experimente:

Sheets("CADASTRO").Activate

For x = 1 To Val(Txt_vagas.Text)
    y = Cells(Cells.Rows.Count, "A").End(xlUp).Row+1
    Cells(y, 1) = txt_Smo.Text
    Cells(y, 4) = cbo_area.Text
    Cells(y, 31) = Cbo_Funcao.Text
    Cells(y, 2) = Txt_DtaSolicitacao.Text
    Cells(y, 3) = Txt_DtaNessecidade.Text
    Cells(y, 5) = cbo_Solicitante.Text
    Cells(y, 6) = Cbo_Disciplina.Text
Next

Muito obrigado!

Deu tudo certo!!!!!!