Sub Cleaning()
Dim j&, n&
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(1, j) = "Employee Type" Then Exit For
Next j
If j <= Cells(1, Columns.Count).End(xlToLeft).Column Then
j = j + 1
Columns(j).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(1, j) = "Employee Type bis"
Cells(2, j).FormulaR1C1 = _
"=IF(OR(RC[-1]=""Regular"",RC[1]=""IA"",AND(RC[-1]=""Fixed Term"",RC[-4]<>""Argentina"")),""FTC"",""Do not count"")"
n = Cells(Rows.Count, "a").End(xlUp).Row
If n > 2 Then Cells(2, j).AutoFill Destination:=Cells(2, j).Resize(n - 1), Type:=xlFillDefault
End If
End Sub