No contexto desse exercício, por que na seguinte linha de código usamos "row" e não "select" no final? Sendo que a ação desejada é eu desloque para uma célula distante pra baixo, desloque pra cima e selecione.
linha_final = Range("d10000").End(xlUp).Select
Obrigado