With Sheets("test") .Range(.Cells(2, i), .Cells(.Rows.Count, i).End(xlUp)).Copy End With
Nachtrag:
vor Rows gehörte auch noch ein Punkt