Este fórum está sendo desativado

[Nmis159]

Bom Dia!
Pessoal estou com uma dificuldade ao tentar mesclar várias células com VBA:
Em um botão (CommandButton1) estou utilizando o seguinte código:

Private Sub CommandButton1_Click()
Dim NUEVO As Object
Dim EXAMPLE As String
Dim CONTAR As Double

Set NUEVO = Workbooks.Add
NUEVO.Activate
EXAMPLE = ActiveWorkbook.Name

CONTAR = 34
Application.Workbooks(EXAMPLE).Worksheets(1).Cells(CONTAR + 1, 2) = "CADASTRO GERAL"
End Sub

O que vai acontecer qdo eu clicar no botão:
vai ser criada uma nova pasta de trabalho e na linha (35) e coluna B será inserido o nome CADASTRO GERAL.
Mas eu quero mesclar as células B(35) até J(35), no entanto o número da linha não será fixo, podendo variar de acordo com as informações
herdadas de outros códigos.

Eu já tentei
Application.Workbooks(EXAMPLE).Worksheets(1).Cells(CONTAR + 1, 2 & ":" & CONTAR +1, 10).Merge

e...

Application.Workbooks(EXAMPLE).Worksheets(1).Cells(CONTAR + 1, 2 & ":" & CONTAR +1, 10).Select
With Selection
.MergeCells = True
End with

Se vcs puderem me ajudar, ficarei agradecido.

[gfranco]

Boa tarde
Veja se o anexo ajuda
at
gfranco

[Nmis159]

Boa tarde
Veja se o anexo ajuda
at
gfranco

gfranco eu quero agradecer pela sua grande ajuda! Deus te abençoe!
Na verdade eu não utilizei exatamente o código que você escreveu, mas
eu o aprimorei p/ o que o sistema precisava executar...
Valeu...!