vba add column before each date listed in row (nba schedule)

[gtd526]

Hello,
Want to add a column before each date listed in Row 3.
The last column is (EY), so there are many dates in Row 3.
Thanks

NBA.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T
1	AWAY	LAL	PHX	ATL	WAS	BOS	HOU	CLE	DET	MIN	OKC	NO	SAC	DAL	POR	PHI	PHX	DET	DEN	NYK
2	HOME	DEN	GS	CHA	IND	NYK	ORL	BKN	MIA	TOR	CHI	MEM	UTA	SAN	LAC	MIL	LAL	CHA	MEM	ATL
3	DATE	10/24/23		10/25/23												10/26/23		10/27/23
Raw

 

[Joe4]

Try this:

Sub MyInsertColumns()

    Dim lc As Long
    Dim c As Long
    
    Application.ScreenUpdating = False
    
'   Find last column with data in row 3
    lc = Cells(3, Columns.Count).End(xlToLeft).Column
    
'   Loop through all columns backwards, up to column B
    For c = lc To 2 Step -1
'       See if entry is a valid date
        If IsDate(Cells(3, c)) Then
'           Insert column before
            Cells(3, c).EntireColumn.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next c
    
    Application.ScreenUpdating = True
    
End Sub

 

[gtd526]

Try this:

Sub MyInsertColumns()

    Dim lc As Long
    Dim c As Long
   
    Application.ScreenUpdating = False
   
'   Find last column with data in row 3
    lc = Cells(3, Columns.Count).End(xlToLeft).Column
   
'   Loop through all columns backwards, up to column B
    For c = lc To 2 Step -1
'       See if entry is a valid date
        If IsDate(Cells(3, c)) Then
'           Insert column before
            Cells(3, c).EntireColumn.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next c
   
    Application.ScreenUpdating = True
   
End Sub

Thank you.