Arafat77,
Bom dia!
Para identificar a última Célula vazia da coluna AC, use:
Sub Copiar
Dim UltimaLinha as Long
UltimaLinha = ActiveSheet.Cells(Cells.Rows.Count, 29).End(XlUp).Row
'Para copiar o conteúdo da Célula AB (na última linha) para a célula AC, utilize isso
ActiveSheet.Range(AC & UltimaLinha +1).Value =ActiveSheet.Range(AB & UltimaLinha).Value
End Sub
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 08/05/2015 4:58 am