Bom dia.
Não entendi.

Bom dia!
Segue conforme pedido:

Obrigado xlarruda.
Ficou muito bom mas ao adaptar esse código ao meu projeto deu erro de compilação, pois, já tenho outro código em "Worksheet_Change".
Se não for pedir muito muito, gostaria desse código em um módulo para ser executado após uma outra rotina.

Mas se fizer isso não funcionará quando colar na coluna C.

Porque não pega todo o meu código. (menos a parte "Worksheet_Change".... e também a parte "End Sub") e cola dentro da "Worksheet_Change" que já está no seu projeto?

Tpo:

Private Sub Worksheet_Change(Byval Target as Range)
Meu código 

Seu Código

End sub

não resolveu.

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Column = 3 Then
   For Each celula In Range("C1:C" & Plan1.UsedRange.rows.Count + _
            (Int(Plan1.UsedRange.rows.Count / 3)))
            If celula.Value <> "" And celula.NumberFormat = "m/d/yyyy" Then
      celula.Interior.ColorIndex = 36
Else
celula.Interior.ColorIndex = 0
   End If
   Next
      End If
'=======================================================
   If Target.Cells.Count <> 1 Then Exit Sub

   If Intersect(Target, Range("AB10:AB4200")) Is Nothing Then Exit Sub

   If Target <> "" Then

   Cells(Target.Row, 32).Value = time

   End If

End Sub

A variável não defina foi "celula".

Insira no início:

Dim celula as Range

Se não funcionar, por favor, poste seu arquivo...

O problema estava justamente em declarar a variável.
Agora funcionou.

Obrigado.