Sub tiempos()
Set datos = Range("g1").CurrentRegion
With datos
r = .Rows.Count
For i = 1 To r
tiempo = Second(.Cells(i, 1))
If tiempo <= 10 Then numero = 1
If tiempo >= 11 And tiempo <= 30 Then numero = 2
If tiempo > 30 Then numero = 3
.Cells(i, 3) = numero
Next i
End With
Set datos = Nothing
End Sub
If tiempo <= 10 Then numero = 1
'si le dices 20 va a ser 2 no 3 como dices en el textyo
If tiempo >= 11 And tiempo <= 30 Then numero = 2
'si es 50 es correcto que sea 3
If tiempo > 30 Then numero = 3