Lançar dados em separado nao é uma boa ideia, o ideal e centralizar e se for o caso separar os dados depois.

Cadastro deve ser sempre unico.

No entanto

Essa linha de codigo adciona uma planilha em branco no arquivo

Sheets.Add After:=Sheets(Sheets.Count)

E

Activesheet.name = combobox1.value

Renomeia a Aba com o valor da combobox.