Delete column if row has blank cells

[Tija]

Is there any way, the columns can be deleted using a formula or VBA code when the cell is blank in the row? e.g. Row 4 has a blank cell AC4:AE4 and these columns needs to be deleted.

Date Auto Populate.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE
1	MMM-YY	Feb-23
2
3
4	26-Feb	27-Feb	28-Feb	01-Mar	02-Mar	03-Mar	04-Mar	05-Mar	06-Mar	07-Mar	08-Mar	09-Mar	10-Mar	11-Mar	12-Mar	13-Mar	14-Mar	15-Mar	16-Mar	17-Mar	18-Mar	19-Mar	20-Mar	21-Mar	22-Mar	23-Mar	24-Mar	25-Mar
Delete Column

Cell Formulas
Range	Formula
A4:AB4	A4	=LET(s,DATE(YEAR(B1),MONTH(B1),26),SEQUENCE(,DATE(YEAR(B1),MONTH(B1)+1,26)-s,s))
Dynamic array formulas.

 

[bebo021999]

Sub deletecolumn()
Range(Cells(4, "A"), Cells(4, "AE")).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

 

[Tija]

It worked Thank you bebo021999.

Can I get back 31 columns when I select a month from drop down menu which has 31 days? Any VBA code that would be able to handle that condition? Please see the below example

Date Auto Populate.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI
1	MMM-YY	May-2022
2
3	Sr.No.	Emp ID	Name	01-May	02-May	03-May	04-May	05-May	06-May	07-May	08-May	09-May	10-May	11-May	12-May	13-May	14-May	15-May	16-May	17-May	18-May	19-May	20-May	21-May	22-May	23-May	24-May	25-May	26-May	27-May	28-May	29-May	30-May	31-May	Total Days
Delete Column 2

Cell Formulas
Range	Formula
D3:AH3	D3	=IF(B1="","",LET(s,DATE(YEAR(B1),MONTH(B1),1),SEQUENCE(,DATE(YEAR(B1),MONTH(B1)+1,1)-s,s)))
Dynamic array formulas.

Cells with Data Validation
Cell	Allow	Criteria
B1	List	=Sheet4!$A$1:$A$24

 

[bebo021999]

using hide column

Sub deletecolumn()
Range(Cells(4, "A"), Cells(4, "AE")).SpecialCells(xlCellTypeBlanks).EntireColumn.hidden=true
End Sub

 

[Tija]

Thank you for your help. Appreciate it.