delete a range of columns

I'm trying to write some code that deletes the unspecified columns based on the header and for one reason or another the code does not execute. wbDest.Activate lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To lastColumn If Cells(1, i).Value <> "Ordered...

I have tried the following and get no syntax errors: Sub Delete1000() Dim lngCol As Long Dim ws As Worksheet Set ws = ActiveSheet With ws For lngCol = .Columns("T").Column To .Columns("CYL").Column Step -1 If WorksheetFunction.Sum(.Columns(lngCol)) <=...

Hi, I would like to delete all columns that only contain Blanks, or "n/a". I want a code that deletes based on whether the column contains anything other than a combination of a specific word e.g. "n/a" and/or trimmed Blank cells e.g. "" and/or " ". If it contains something else e.g. other...