moin
ich würde es in eine With-Anweisung packen
das würde dann so aussehen
With Sheets("test") .Range(.Cells(2, i), .Cells(Rows.Count, i).End(xlUp)).Copy End With
beachte die Punkte vor Cells
grüßli