Se colunas (1). Fileiras (1). Valor = "" então
primeiramente = colunas (1). Extremidade (xlDown). Endereço
Mais
primeiramente = colunas (1). Fileiras (1). Endereço
Terminar se
último = colunas (1) .SpecialCells (xlCellTypeLastCell). Endereço
Escala (primeiramente & “: ” & último). Destino da cópia: =Workbooks (1). Folhas (2). Pilhas (1)
|