Fecha y turno en excel automático

He hecho la siguiente macro, pero no me funciona, porque?
lo que quiero es que cuando meta un valor en C, automáticamente en A aparezca la fecha, y en B el turno de trabajo.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
fila = Target.Row
If Time > "00:00:00" And Time < "05:59:59" Then
Cells(fila, 1).Value = Date - 1
Cells(fila, 2).Value = "N"
Else
If Time > "06:00:00" And Time < "13:59:59" Then
Cells(fila, 1).Value = Date - 1
Cells(fila, 2).Value = "M"
Else
If Time > "14:00:00" And Time < "21:59:59" Then
Cells(fila, 1).Value = Date - 1
Cells(fila, 2).Value = "T"
Else
Cells(fila, 1).Value = Date
Cells(fila, 2).Value = "N"
End If
End If
End If
End If
End Sub