Public Sub DateInsertion()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Sheets("T2").Select
For i = 0 To 39
Columns(141 - 2 * i).Select
Selection.EntireColumn.Delete
Next i
Columns("W:BJ").Select
Selection.EntireColumn.Delete
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub