Tanggal dan Waktu event Change

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A5:C13")) Is Nothing Then
        ThisWorkbook.Sheets("cant").Range("A1").Value = Format(Now(), "dddd, dd mmmm yyyy")
        ThisWorkbook.Sheets("cant").Range("A2").Value = "Waktu : " & Format(Now(), "hh:mm") & " WIB"
    End If
End Sub