I have solved the problem as below:

wks_SR.Columns("D:D").Copy wks_Orders.Columns(last_col + 1)


-----Original Message-----
If I use .Value as below, I can copy the column's values.

wks_SR.Columns("D:D").Value

I would like to copy the whole column including the
formating.

Does anyone know what I should use instead of .Value?

Thanks

Simon

.