Como fazer uma macro para Selecionar sempre a ultima linha em branco coluna A

Question

Bom Amigos!

Tenho 29 planilhas de varias empresas no mesmo formato, e todos os dias tenho que consolidar todas em apenas uma, esta planilhas são de faturamento de duplicatas, ou seja, todos os dias tenho pagamento e faturamento, assim aumentando e diminuindo a quantidade de linhas.

Gostaria de saber se tem alguma macro que eu possa fazer, que copiar uma planilha, colar na ultima linha em branco da outra.

tenho visto outros fóruns mas não encontrei a solução. 

Abaixo um pequeno script onde tenho 4 planilhas consolidadas, mas lembrando, todos os dias as linhas aumentam ou diminui, por isso quero sempre cole na célula em branco da Coluna A1.

Conto com a ajuda de todos.

    Windows("abrange.csv").Activate
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Windows("Pasta1.xlsx").Activate
    ActiveSheet.Paste
    Range("A1").Select
    Selection.End(xlDown).Select
    Range("A3496").Select
    
    Windows("adibe e castro.csv").Activate
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Pasta1.xlsx").Activate
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    Range("A11908").Select
    
    Windows("castro e marques.csv").Activate
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Pasta1.xlsx").Activate
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    Range("A18234").Select
    
    Windows("cimed.csv").Activate
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Pasta1.xlsx").Activate
    ActiveSheet.Paste
    Range("A18207").Select
    
    Application.CutCopyMode = False
    ChDir "C:\Users\maercio.alves\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\maercio.alves\Desktop\consolidado diario.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Answer 1

Olá.

Para encontrar a última linha escrita na coluna "A" (1) basta usar:

Lf = Cells(Rows.Count, 1).End(xlUp).Row

Seria isto?

Abraço.

---

Filipe Magno

Answer 2

Amigo,

Não sei ao certo onde colo esta informação, sou muito leigo nisso. Tem como dar exemplo?achei em um forum por  aqui mesmo esta informação 

Lini = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(Lini, 1), Cells(Lini + 19, 13)).Select

no momento deu certo, mas ainda não é o que eu procuro, acho que não é necessário, colunas até a 13.

Maercio Alves

Answer 3

Verifique o link a seguir: http://www.rondebruin.nl/win/s3/win002.htm

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br