Copiar e colar até a última célula nao vazia do Excel VBA

[Amanda Silvaj]

Me ajudem por favor , e muito importante  para mim. È o seguinte estou tentando copiar da célula que estou até a ultima celula não vazia e não consigo pois ao realizar esta ação preciso que a célula não seja ficça como na imagem e código a seguir:

Sub Macro4()
'
' Macro4 Macro
'
'
    Range("AG507").Select
    Selection.AutoFill Destination:=Range("AG507:AG649") 'tem que colar até a ultima celula não vazia e não pode ser celula ficça pois serão varios itens em lugares diferentes.
    Range("AG507:AG649").Select
End Sub

 

                Antes de colar                                    Apos colar

 

Se alguém for craque ajude a novata, obrigado.