Convert Format when Cut and Paste

[ParanoidAndroid]

Hi Excel Experts

I would appreciate your help with this

When I cut and Paste a whole range of columns - I want to be certain that they are pasted in the right format.

How do I do this?

I want to be certain that the following columns are in General Formal - A, B, C, D, F, H, I, J, K, P

Column G is in number format to 2 decimal places

Column E is in Date Format *14/03/2001

I have the following Code

Sheets("3073Temp").Range("A:U").Copy Destination:=Sheets("3073").Range("A:U")
Sheets("> 20daysTemp").Range("A:U").Copy Destination:=Sheets("> 20Days").Range("A:U")
Sheets("3104AGYTemp").Range("A:U").Copy Destination:=Sheets("3104AGY").Range("A:U")
Sheets("3056LCSTemp").Range("A:U").Copy Destination:=Sheets("3056LCS").Range("A:U")
Sheets("4042LCSTemp").Range("A:U").Copy Destination:=Sheets("4042LCS").Range("A:U")
Sheets("2037LCSTemp").Range("A:U").Copy Destination:=Sheets("2037LCS").Range("A:U")
Sheets("3104SPTemp").Range("A:U").Copy Destination:=Sheets("3104SP").Range("A:U")

Your help much appreciated...

Thanks in advance

 

[Sektor]

1. Before pasting set columns' format: Columns("A:A").NumberFormat = "General"
2. Copy data: Sheets("4042LCSTemp").Range("A:U").Copy
3. Make special paste as values: Sheets("4042LCS").Range("A:U").PasteSpecial with Paste:=xlPasteValues.

...
Columns("A:A").NumberFormat = "General"
...
Sheets("4042LCSTemp").Range("A:U").Copy
...
Sheets("4042LCS").Range("A:U").PasteSpecial Paste:=xlPasteValues