Guru do Excel e Power BI

Olá pessoal, estou desenvolvendo um formulário para cadastro de produtos Semi Acabados, mas estou com um problema há algum tempo, e não consigo resolver. Gostaria de selecionar várias CheckBoxes e ao clicar em um botão, os Captions das caixas sejam inseridos numa planilha em ordem. Uma parte eu consegui, mas gostaria de tornar o código menor também, talvez com algum loop... Só que o problema é que quando o texto é inserido na célula, esta faz a quebra automática do texto, prejudicando a visualização. Outra coisa que consegui em parte, mas não ficou boa é o redimensionamento automático da largura da célula de acordo com a palavra inserida. Se fosse possível gostaria da ajuda dos mestres VBA.
Desde já obrigado.
Adriano Santos.
Segue planilha exemplo em anexo.

Bom dia Adriano.
Veja se atende.
Fiz as identações no botão.
At
gfranco

Bom dia gFranco! Isso mesmo. Funcionanco direitinho. Obrigado !!
Só mais uma coisa, seria possível através do mesmo form selecionar a peça e excluí-la da planilha? Teria que ser feito um Vlookup ?

Boa tarde Adriano.
É possível sim.
Acrescente um botão com um loop for varrendo as linhas da planilha e procurando na coluna de nomes o valor da caption.
Quando encontrar acrescente um entirerow.delete que a linha será deletada.
Qualquer coisa, dá um toque que eu dou uma força.
At
gfranco.

Olá, desculpe a demora pra responder, mas tentei criar esse código e não consegui. Até imagino como seja, mas não consigo aplicar. Poderia me ajudar com mais essa

gfranco

?
Desde já obrigado!!

Adriano Santos

Boa tarde Adriano e Feliz Natal
Veja se atende:
at
gfranco

Boa tarde gFranco. Isso mesmo. Funcionando 100%. Muito obrigado!!
Feliz ano novo!!