Guru do Excel e Power BI

Bom dia!

Estou acompanhando uma vídeo aula e em paralelo estou fazendo uma planilha dos países por continente. Fiz o código todo certo, porém apareceu esse erro:

Erro em tempo de execução 9: Subscrito fora do intervalo".

Vou postar o código e anexar o arquivo:

Sub Registra()


linha = 2
linha_final = Range("a1").End(xlDown).Row

While Cells(linha, 1) <> ""

country = Cells(linha, 1)
IDH = Cells(linha, 2)
continent = Cells(linha, 3)

ult_linha = Sheets(continent).Range("a10000").End(xlUp).Row + 1 <- aqui é o erro
Sheets(continent).Cells(ult_linha, 1) = country
Sheets(continent).Cells(ult_linha, 2) = IDH
Sheets(continent).Cells(ult_linha, 3) = continent

Range("F2") = linha / linha_final
linha = linha + 1
Wend

End Sub

Substitua as 4 ocorrências de ~~~> Sheets(continent)

por ~~~> Sheets("base_dados")

ou exclua todas as 4 ocorrências, e omita o nome da planilha como está por exemplo em ~~~> Range("F2") = ...

Obrigado meu amigo