Copy a column

  • Thread starter Thread starter Lzell
  • Start date Start date
L

Lzell

I want to create a macro which copies a range of cells in a column and
pastes it directly below the first set. The range can vary but it
always starts in the same cell.

Thankful for help
 
How do you know where it ends?

Dim myRows As Long
myRows = 5
With ActiveSheet
.Cells(3, 5).Resize(myRows).Copy _
Destination:=.Cells(3, 5).Offset(myRows)
End With

or maybe something like:

Range(ActiveCell, ActiveCell.End(xlDown)).Copy _
Destination:=ActiveCell.End(xlDown).Offset(1, 0)


It really depends.
 
Back
Top