You're missing part:
Range("A2", Cells(Rows.Count, "A").End(xlUp)).Copy