Just wanted to share as I had huge amount of trouble looking for ways to do this online and have finally gotten it through series of trial and error.
Sheet1.Range(Ce
With Sheet1 .Range(.Cells(1, 11), .Cells(1, 100)).EntireColumn.Delete End With