Vba

[Stla]

Boa Noite Galera...

Estou tentando executar essa macro para gravar os dados de um formulário em uma planilha, mas aparece a msg "Erro em tempo de execução 424: o objeto é obrigatório.

Alguem pode me ajudar?!

Sub Botão23_Clique()

'ativar a planilha Inf_Clientes

ThisWorkbook.Worksheets("Registro").Activate

'selecionar a célula A2

Range("A2").Select

'procurar a primeira célula vazia

Do

If Not (IsEmpty(ActiveCell)) Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

'registrar dados digitados do formulário na planilha

ActiveCell.Value = executivofinal.Value

ActiveCell.Offset(0, 1).Value = clientefinal.Value

ActiveCell.Offset(0, 2).Value = cnpjfinal.Value

ActiveCell.Offset(0, 3).Value = cnpjfinal2.Value

ActiveCell.Offset(0, 4).Value = filiaisfinal.Value

ActiveCell.Offset(0, 5).Value = qntfiliaisfinal.Value

ActiveCell.Offset(0, 6).Value = perfilfinal.Value

ActiveCell.Offset(0, 7).Value = qntfuncionariosfinal.Value

ActiveCell.Offset(0, 8).Value = ramofinal.Value

ActiveCell.Offset(0, 9).Value = nomefinal.Value

ActiveCell.Offset(0, 10).Value = cargofinal.Value

ActiveCell.Offset(0, 11).Value = telefonefinal.Value

ActiveCell.Offset(0, 12).Value = celularfinal.Value

ActiveCell.Offset(0, 13).Value = emailfinal.Value

ActiveCell.Offset(0, 15).Value = I30.Value

ActiveCell.Offset(0, 16).Value = K30.Value

ActiveCell.Offset(0, 17).Value = N30.Value

ActiveCell.Offset(0, 18).Value = P30.Value

ActiveCell.Offset(0, 20).Value = I32.Value

ActiveCell.Offset(0, 21).Value = K32.Value

ActiveCell.Offset(0, 22).Value = N32.Value

ActiveCell.Offset(0, 23).Value = P32.Value

ActiveCell.Offset(0, 25).Value = I34.Value

ActiveCell.Offset(0, 26).Value = K34.Value

ActiveCell.Offset(0, 27).Value = N34.Value

ActiveCell.Offset(0, 28).Value = P34.Value

ActiveCell.Offset(0, 30).Value = I36.Value

ActiveCell.Offset(0, 31).Value = K36.Value

ActiveCell.Offset(0, 32).Value = N36.Value

ActiveCell.Offset(0, 33).Value = P36.Value

ActiveCell.Offset(0, 35).Value = I38.Value

ActiveCell.Offset(0, 36).Value = K38.Value

ActiveCell.Offset(0, 37).Value = N38.Value

ActiveCell.Offset(0, 38).Value = P38.Value

ActiveCell.Offset(0, 40).Value = I40.Value

ActiveCell.Offset(0, 41).Value = K40.Value

ActiveCell.Offset(0, 42).Value = N40.Value

ActiveCell.Offset(0, 43).Value = P40.Value

ActiveCell.Offset(0, 45).Value = I42.Value

ActiveCell.Offset(0, 46).Value = K42.Value

ActiveCell.Offset(0, 47).Value = N42.Value

ActiveCell.Offset(0, 48).Value = P42.Value

ActiveCell.Offset(0, 49).Value = datacenterfinal.Value

ActiveCell.Offset(0, 50).Value = backupfinal.Value

'depois de finalizada ir para executivo

cxtExecutivo.SetFocus

End Sub