Info

Set NewDestination = ActiveSheet.Range("I1")

For Each Rng In Cells.SpecialCells(xlCellTypeConstants, 1).Areas Rng.Copy Destination:=NewDestination

Set NewDestination = NewDestination.Offset(Rng.Rows.Count) Next Rng

Set NewDestination = ActiveSheet.Range("I1")

For Each Rng In Cells.SpecialCells(xlCellTypeConstants, 1).Areas Rng.Copy Destination:=NewDestination

Set NewDestination = NewDestination.Offset(Rng.Rows.Count) Next Rng

0 0

Post a comment