[COLOR=BLUE]Sub[/COLOR] PasteValidationAndFormat()
Columns(5).Insert xlToRight
Columns(4).Copy
[COLOR=BLUE]With[/COLOR] Union(Columns(3), Columns(5))
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValidation
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]