Есть такая задача:
если в определенном столбце, в моём случае в седьмом, значение становится равно "застеклен", то в следующем столбце должна фиксироваться текущая дата. Реализовал так:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Value = "застеклен" Then Cells(Target.Row, 8).Value = Date
End Sub

если вписывать вручную, либо вставлять по одной, то все работает, если попробовать вставить >1 ячейки, или протянуть даты, то вылетает ошибка: Type mismatch (Error 13). Подскажите, как можно решить эту проблему?

Сорь, имел ввиду не ДАТЫ протянуть, а значение "застеклен"

В общем сам подкрутил таким образом:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim t_count, t_row, rr1
t_count = Target.Rows.Count
t_row = Target.Row

If Target.Column = 7 And Cells(t_row, 7).Value = "застеклен" Then
For rr1 = t_row - 1 To t_count + t_row - 1
Cells(rr1, 8).Value = Date
Next
End If

End Sub

не знаю на сколько это красиво, но работает