VBA: Delete Columns F onwards Except Last Column

[dianeslao]

Hello, can you please help share an excel VBA macro that deletes columns F onwards except the last column.
Last Column changes, it can be the column F or AZ.

 

[Fluff]

Hi & welcome to the board.
How about

Sub DelCols()

   Dim Usdcols As Long
   
   Usdcols = Cells(1, Columns.Count).End(xlToLeft).Column
   If Usdcols > 5 Then
      Range("F1", Cells(1, Usdcols - 1)).EntireColumn.Delete
   End If
End Sub

 

[dianeslao]

hi & welcome to the board.
How about

sub delcols()

   dim usdcols as long
   
   usdcols = cells(1, columns.count).end(xltoleft).column
   if usdcols > 5 then
      range("f1", cells(1, usdcols - 1)).entirecolumn.delete
   end if
end sub

thankyou!

 

[Fluff]

Your welcome

 

[dianeslao]

Hello, thanks for your help. but i noticed that when Column G onwards in my source file is empty the macro deletes Column E and F.
PLEASE help modify.

 

[Fluff]

It should be

If Usdcols > [COLOR=#ff0000]6 [/COLOR]Then