Segue uma possibilidade; Veja se atende

Poxa cara... Um dia serei como você, mesmo atarefado, sempre pronto a ajudar...
Rei, esta perfeito, algumas partes eu não entendo bem, mas está ótimo...
Agora vamos para a pesquisa de como fazer para retornar o que está registrado na Planilha para os ComboBox que estará no sistema, assim teremos sempre os combos atualizados automaticamente.

Att,
Joocta.

Gurus,
Bom, depois de pesquisas, consegui fazer isso...
Só gostaria de colocar junto no ComboBox a coluna B das Planilhas.
Alguma dica?

Att,
Joocta.

Meus Caros Gurus,
O que eu desejava era o que esta em anexo, mas só acontece com aba Fornecedores, porque não acontece nas outras. Alguém pode me explicar?
Att,
Joocta.

Se é que entendi, acrescente em concatena a linha conforme abaixo:

wsPlan = ComboBox1.Text
Sheets(wsPlan).Activate
Set rnColuna1 = Worksheets(wsPlan).Range("A2", Range("A65536").End(xlUp))
Set rnColuna2 = Worksheets(wsPlan).Range("B2", Range("B65536").End(xlUp))

Rei, e isso mesmo, adaptando ao sistema que já estava montado ele esta armazenando certo, mas quando vai concatenar... Da esse erro na parte grifada.

Erro em tempo de execução '13'
Tipos incompatíveis...

Private Sub Concatena()

Dim vaColuna1 As Variant, vaColuna2 As Variant, vaDados() As Variant
Dim wsPlan As String
Dim rnColuna1 As Range, rnColuna2 As Range, rnDados As Range
Dim iNumero As Long

wsPlan = ComboBox1.Text
Sheets(wsPlan).Activate
Set rnColuna1 = Worksheets(wsPlan).Range("A2", Range("A65536").End(xlUp))
Set rnColuna2 = Worksheets(wsPlan).Range("B2", Range("B65536").End(xlUp))

vaColuna1 = rnColuna1.Value
vaColuna2 = rnColuna2.Value

ReDim vaDados(1 To UBound(vaColuna1))
For iNumero = 1 To UBound(vaColuna1)
vaDados(iNumero) = vaColuna1(iNumero, 1) & " - " & vaColuna2(iNumero, 1)
Next iNumero

Set rnDados = Worksheets(wsPlan).Range("C2", Range("C" & UBound(vaColuna1) + 1))
rnDados.Value = Application.Transpose(vaDados)

End Sub

Sabe o que possa ser?

No seu exemplo, não experimentei erro. Porem pela descrição do erro, aparentemente a variavel (vaColuna1) não recebeu o valor esperado.
Contudo, não comentei antes,mas não vejo objetivo de sempre fazer a concatenação de todos os registros sempre que houver uma inclusão.
Creio que o mais coerente seria "fazer" a concatenaçãodo registro que "está sendo" incluido somente.

Rei, meu caro instrutor.... Nas minhas tentativas foi a unica maneira que encontrei, tento me esforcar para aprender...Rsrs.Mas e punk... O que eu achei engracado e que funcionava antes e quando coloquei no sistema que estamos desenvolvendo deu esse erro...

Talvez então seja algum conflito no arquivo completo.
Qto à concatenação, pode ser conforme alteração no codigo de incluir; veja abaixo (sem o uso da rotina concatena):

Private Sub CommandButton1_Click()
'Inserir
Dim ultimalinha As Integer, nPlan As String
nPlan = ComboBox1.Text
ultimalinha = Worksheets(nPlan).Cells(Cells.Rows.Count, "a").End(xlUp).Row
    Worksheets(nPlan).Cells(ultimalinha + 1, 1) = TextBox1.Text
    Worksheets(nPlan).Cells(ultimalinha + 1, 2) = TextBox2.Text
    Worksheets(nPlan).Cells(ultimalinha + 1, 3) = TexBox1.Text & " - " & TextBox2.Text
    TextBox1.Text = ""
    TextBox2.Text = ""
CarregaLView
ComboBox1.SetFocus
End Sub

Show de bola Rei....