Защита ячеек после ввода данных, необходимо ввести вес, записать время ввода в указанном формате c, сравнить значение и установить счетчик

Question

   Private Sub Worksheet_Change(ByVal Target As Range)

 ActiveSheet.Unprotect Password:="123"

 Target.Locked = True
Dim tasksheet As Worksheet

Dim i As Integer

Dim T2 As Integer
Set tasksheet = ThisWorkbook.Sheets("Sheet1")

Lr = tasksheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To Lr

If tasksheet.Cells(i, "A").Value <> "" And tasksheet.Cells(i, "B").Value = "" Then
tasksheet.Cells(i, "B").Value = Time

tasksheet.Cells(i, "B").NumberFormat = "hh:mm"

tasksheet.Cells(i, "A").Font.ColorIndex = 5

End If

 If tasksheet.Cells(i, "A") < 18.9 Then

                   T2 = T2 + 1

            tasksheet.Cells(i, "A").Font.ColorIndex = 3

        End If
Next

 Cells(5, 10).Value = T2

ActiveSheet.Protect Password:="123"

End Sub

Я продолжаю получать сообщение об ошибке:

Ошибка времени выполнения 1004: невозможно установить свойство числового формата вне диапазона класса

Не могли бы вы помочь, я иметь немного знаний VB. Заранее спасибо