Boa noite!!
Lembre de usar nossa base de dados!!

Sub Use_A_Pesquisa_Do_Forum()
Range("A" & Cells.Rows.Count).End(xlUp).Select
End Sub

Att

Sub Utilizarei_a_base_de_dados_da_próxima_vez()
Sou novato em foruns, utilizarei a pesquisa do forum da próxima vez.
Obrigado amigo.
End Sub

Boa noite!!

meu código não te ajudou em nada

Boa noite!!

meu código não te ajudou em nada

kkkk, as vezes só rindo mesmo Alexandre, o luis falou mas não disse nada, se realmente ajudou ou não, mas fazer o que, vamos aguardar que ele se pronuncie, enquanto isto não acontece vou postar minha sugestão para o caso de outros precisarem.

Sub CopiaRangeseApaga()

    Dim Rws As Long, Rng As Range
    
    'Armazena na Variável o TT de Celulas da primeira até a última
    'Na Coluna A
    Rws = Cells(Rows.Count, "A").End(xlUp).Row
    
    'Atribui Definição para o Novo Range do Total de Celulas
    Set Rng = Range(Cells(1, "A"), Cells(Rws, "A"))
    
    'Copia todos para a Coluna "C" iniceando em C1
    Rng.Offset(0, 0).Resize(Rws, 1).Copy Destination:=Range("C1")
    
    'Apaga os dados da Coluna A
    Rng.Offset(0, 0).Resize(Rws, 1).ClearContents

End Sub

[]s

Depois que se passa dos 70 a coisa fica mais difícil.
Tenho pouco tempo para fazer e não sei quanto para aprender.
Obrigado a quem realmente ajudou(Mauro Coutinho), sua resposta foi útil.
Abraço.

Bom dia!!

Obrigado a quem realmente ajudou(Mauro Coutinho), sua resposta foi útil.

-------#---------#----------#-------#---------#----------#-------#---------#----------#-------#---------#------------

Se alguém também puder me indicar uma apostila ou similar para estudo será muito útil para mim.
Espero também poder ajudá-los em pouco tempo.

http://www.bertolo.pro.br/FinEst/Semana ... oExcel.pdf

Att