Sub InsereCant()
Application.ScreenUpdating = False
DL = Range("A65500").End(xlUp).Row
T = Range("A1:F" & DL)
Cant = 0
For L = 3 To UBound(T)
Cant = Cant + 1
If Cant = 10 Then
If T(L, 6) = "" Or T(L, 6) = "Cant" Then
T(L, 6) = "Cant"
Else
T(L, 6) = "Cant - " & T(L, 6)
End If
T(L, 5) = 203
End If
If Cant = 10 Then Cant = 0
Next L
[A1].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub