VBA delete entire columns

[phil133]

Hi. VBA newbie here. In this code after running some macros I want to delete some columns (A, D to F and H to L). Unortunately it doesn't do that.

Sheets("P_L events up to 2 months").Select
    Range("B5:D424").Select
    Selection.ClearContents
    Range("B5").Select
    Application.Run "'RSX NEW.xlsm'!copy_paste1"
    Sheets("Sheet1").Select
    Application.Run "'RSX NEW.xlsm'!copy_last_row1"
    Columns("A:A").Select
    Selection.Delete
    Columns("D:F").Select
    Selection.Delete
    Columns("H:L").Select
    Selection.Delete
End Sub

Thanks for any help!

 

[AlphaFrog]

Consider this: If you delete column A, then column B shifts left to be the new column A. Then if you delete columns D:F, you are actually deleting what use to be columns E:G because they have shifted left as well because of the previous delete.

Consider deleting columns from right to left.

Alternatively, you could delete noncontinuous columns like this.

Range("A:A,D:F,H:L").Delete