Estou desenvolvendo cadastro de cliente, no entanto na hora de salvar os dados do cadastro aparece o seguinte erro.
O Método 'Range' do objeto '_WorkSheet' falhou
'cadastro de informações
Public Sub Cadastrar()
Call EfeitoMenuAcao
linha = 30
Do Until shtDados.Cells(linha, "A") = ""
linha = linha + 1
Loop
For a = 0 To 35
shtDados.Cells(linha, "A").Offset(0, a) = shtCadastro.Range("Cad_" & a).Value
Next
MsgBox "Dados Cadastrados com Sucesso", vbInformation, "Cadastro de Informações"
End Sub
O erro consta na linha em negrito. Alguém poderia me ajudar?