Truques e dicas Excel
Endereço da última célula ( mais abaixo) não vazia de uma coluna numa folha excel (neste caso a coluna A): ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Address ou ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Address Endereço da última célula ( mais à direita) não vazia de uma linha numa folha excel (neste caso a linha 1): ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Address Endereço da última célula (mais à direita e mais abaixo) com valores numa folha de excel: ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column).End(xlUp).Address