HI everybody,

What is wrong with

export.Sheets("Sheet1").Range("C4").Resize(Range(" F4").End(xlDown).Row,
4).Select

Thanks

because

export.Activate
Range("C4").Resize(Range("F4").End(xlDown).Row, 4).Select
Selection.Copy
AllJobVolumes.Activate

works?!