Public Sub Normativ_Потери()
    Dim i As Integer
    For i =  1  To  450 
        With Sheets("Отчет")
            If Form_SelectDate.ComboBox_Month.Text = .Cells(i,  27 ).Text Then  ' Условие по совпадению текстов

                '''Вставить выбранное значение UserForm4.ComboBox2 в ячейки, начиная с Cells(i, 30) и до тридцать одной ячейки включительно
            
            End If
        End With
      Next
End Sub

Public Sub Normativ_Ïîòåðè()
    Dim i As Integer
    For i =  1  To  450 
        With Sheets("Îò÷åò")
            If UserForm4.ComboBox1.Text = .Cells(i,  27 ).Text Then  ' Óñëîâèå ïî ñîâïàäåíèþ òåêñòîâ
                .Cells(i,  30 ).Resize( 31 ).Value = UserForm4.ComboBox2
            End If
        End With
      Next
End Sub

.Cells(i,  30 ).Resize( 31 ).Value = UserForm4.ComboBox2