Dim lastrow&
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("J2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC1,2)"
ActiveCell.Offset(0, 1).FormulaR1C1 = "=LEFT(RC1,3)"
ActiveCell.Offset(0, 2).FormulaR1C1 = "=LEFT(RC1,4)"
ActiveCell.Offset(0, 3).FormulaR1C1 = "=LEFT(RC1,5)"
ActiveCell.Offset(0, 4).FormulaR1C1 = _
"=IF(OR(LEFT(RC[-13],1)=""5"",LEFT(RC[-13],1)=""6""),RC[-10]-RC[-9],RC[-9]-RC[-10])"
'
'
'
Range("J2:N2").Select
Selection.AutoFill Destination:=Range("j2:n" & lastrow)