Si columnas (1).Rows (1).Value = "" después
primero = columnas (1).End (xlDown). Dirección
primero = columnas (1).Rows (1).Address
Terminar si
último = columnas (1).SpecialCells (xlCellTypeLastCell). Dirección
Gama (primero y “: ” y pasado). Destinación de la copia: =Workbooks (1).Sheets (2).Cells (1)
|