Move column with DropDown Content.

[HGDantes]

Hello

I got a script to build huge report with several sheets columns and Vlookups referencing many other reports.

At the end of my process, I got this :

Columns("AG:AG").Select
    Selection.Cut
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight

The problem is that there's a DropDown menu on cells in columns AG and there's also a DropDown on column E, and after the Cut and Paste, column F (Formally column AG) don't keep it's DropDown and inherit the DropDown Menu from Column E.

Any Idea to fix that?

Thanks

 

[OaklandJim]

I hope that I understand the issue...Perhaps try 1) inserting an empty Column F then 2) copying from column AG to column F then 3) deleting the now empty column AG

Also note that you can PasteSpecial validation in cells.

Sub Macro1()

    With ActiveSheet
    
        .Range("AG:AG").Copy
    
'       Insert copied cells (from Column AG)
        .Range("F:F").Insert
        
'       Clear cells in what was Column AG and now is AH after insert of F
'        .Range("AH:AH").Clear
    
'       ...or delete column AH?
        .Range("AH:AH").Delete
    
    
    End With

End Sub