Run-time error '13'

Fiz uma rotina de VBA no excel que num trabalho está a dar muito bem mas no outro aparece um tipo de erro: Run-time error '13'

aqui está a rotina:

Sub NovoAluno()

indice = Application.Cells(1, 12)

número = InputBox("Por favor indique o número de aluno.", "Titulo da aplicação")
nome = InputBox("Por favor indique o seu nome.", "Titulo da aplicação")
morada = InputBox("Por favor indique a sua morada.", "Titulo da aplicação")
Telemóvel = InputBox("Por favor indique o seu telemóvel.", "Titulo da aplicação")
idade = InputBox("Por favor indique a sua idade.", "Titulo da aplicação")
data_nascimento = InputBox("Por favor indique a sua data de nascimento.", "Titulo da aplicação")
NIF = InputBox("Por favor indique o seu NIF.", "Titulo da aplicação")
Profissão = InputBox("Por favor indique a sua Profissao.", "Titulo da aplicação")
Correio_Electrónico = InputBox("Por favor indique o seu Correio Electrónico.", "Titulo da aplicação")
Curso = InputBox("Por favor indique o seu curso.", "Titulo da aplicação")
Código_Curso = InputBox("Por favor indique o Código do Curso.", "Titulo da aplicação")
Obsevações = InputBox("Por favor indique alguma observação.", "Titulo da aplicação")

Application.Cells(indice, 1) = número
Application.Cells(indice, 2) = nome
Application.Cells(indice, 3) = morada
Application.Cells(indice, 4) = Telemóvel
Application.Cells(indice, 5) = idade
Application.Cells(indice, 6) = data_nascimento
Application.Cells(indice, 7) = NIF
Application.Cells(indice, 8) = Profissão
Application.Cells(indice, 9) = Correio_Electrónico
Application.Cells(indice, 10) = Curso
Application.Cells(indice, 11) = Código_Curso
Application.Cells(indice, 12) = Obsevações





Application.Cells(1, 12) = Application.Cells(1, 12) + 1

End Sub

o erro está a vermelho, alguém pode ajudar-me?

Hello MarianaOliv,

Bem-vindo ao fórum!
Posso ler e escrever um pouco de português. Este é o código corrigido.

Sub NovoAluno()

    Dim Data    As Variant
    Dim indice  As Long
    
    
        indice = Application.Cells(1, 12) + 1
        
      ' If indice is 1 then the data will overwrite indice with Obsevações. The first data row will be row 2 if true.
        If indice < 2 Then indice = 2 Else indice = indice + 1
        
        número = InputBox("Por favor indique o número de aluno.", "Titulo da aplicação")
        nome = InputBox("Por favor indique o seu nome.", "Titulo da aplicação")
        morada = InputBox("Por favor indique a sua morada.", "Titulo da aplicação")
        Telemóvel = InputBox("Por favor indique o seu telemóvel.", "Titulo da aplicação")
        idade = InputBox("Por favor indique a sua idade.", "Titulo da aplicação")
        data_nascimento = InputBox("Por favor indique a sua data de nascimento.", "Titulo da aplicação")
        NIF = InputBox("Por favor indique o seu NIF.", "Titulo da aplicação")
        Profissão = InputBox("Por favor indique a sua Profissao.", "Titulo da aplicação")
        Correio_Electrónico = InputBox("Por favor indique o seu Correio Electrónico.", "Titulo da aplicação")
        Curso = InputBox("Por favor indique o seu curso.", "Titulo da aplicação")
        Código_Curso = InputBox("Por favor indique o Código do Curso.", "Titulo da aplicação")
        Obsevações = InputBox("Por favor indique alguma observação.", "Titulo da aplicação")

        Data = Array(número, nome, morada, Telemóvel, idade, data_nascimento, NIF, _
                     Profissão, Correio_Electrónico, Curso, Código_Curso, Obsevações)
            
        Application.Cells(indice, 1).Resize(1, UBound(Data)).Value = Data
        Application.Cells(1, 12).Value = indice
        
End Sub