Range("A:E,H:H,Q:AM,AP:CF").ClearContents
Range("A:E,H:H,Q:AM,AP:CF").Delete
Private Sub mySub()
'- F, G, I, J, K, L, M, N, O, P, AN, AO
'A to CF
Dim col As Integer
For col = 1 To 85 'A to CF
If col = 6 Or col = 7 Or col = 10 Or col = 11 Or col = 12 Or col = 13 Or col = 14 Or col = 15 Or col = 16 Or col = 40 Or col = 41 Then
Sheet1.Columns(col).Delete
End If
Next
End Sub