Sub Item_PropertyChange(ByVal Name)
   Select Case Name
   Case «Status»
           if Item.Status = 2 then ‘2 = Completed
                   Set NewItem = Application.CreateItem(0)
                   NewItem.To = «........»
                   NewItem.Recipients.ResolveAll
                   NewItem.Subject = «Тест»
                   NewItem.Body = «Тест письма»
                   NewItem.Display
           End IF
   End Select
   End Sub

Private Sub Вставить_Click()
   Dim a()
    Dim i&, rw
'---------------
    rw = 12 'номер первой строки для выгрузки
    a = Me.ListBox2.List 'берём в массив значения листбокса
    With Sheets("Нормы") 'имя нужного листа
        For i = 0 To UBound(a) 'цикл по строкам массива
            'вносим значения из массива на лист
            .Cells(i + rw, 6) = a(i, 0) 'наименование
        Next
    End With
End Sub