Visual Basic - macro da valor a una celda dependiendo de la hora de otra celda

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