Copy a column

[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

 

[Dave Peterson]

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.