Private Sub CommandButton3_Click()
Dim iRange2 As Range
Set iRange2 = Worksheets(3).Columns(2).Find(What:="ИТОГО:")
Do
If Not iRange2 Is Nothing Then iRange2.Offset(-1).EntireRow.Delete
Loop While iRange2.Cells.Offset(rowOffset:=-1).Text = "Порядковый номер"
End Sub

Private Sub CommandButton2_Click()
Dim iRange As Range
Dim iLastRow As Long
Dim FirstAdr As String
Dim iNomer As Integer
Set iRange = Worksheets(1).Columns(1).Find(what:=ComboBox1.Value)
    FirstAdr = iRange.Address
    n = 1
     iLastRow = Worksheets(3).Cells(n + 3, 1).Row
      iNomer = Worksheets(1).Cells(iRange.Row, 2)
        
    Do
     If Worksheets(3).Cells(iLastRow, 2) = "ИТОГО:" Then
     Worksheets(3).Rows(iLastRow).Insert Shift:=xlDown
     n = n + 1
     End If
      Worksheets(3).Cells(iLastRow, 1) = Worksheets(1).Cells(iRange.Row, 1)
      Worksheets(3).Cells(iLastRow, 1).NumberFormat = "d/m/yyyy"
      Worksheets(3).Cells(iLastRow, 2) = iNomer
     Select Case iRange.Offset(, 2)
      Case "MosPrime0N"
           Worksheets(3).Cells(iLastRow, 3) = Worksheets(1).Cells(iRange.Row, 4)
           Worksheets(3).Cells(iLastRow, 3).NumberFormat = "0%"
      Case "MosPrime1W"
           Worksheets(3).Cells(iLastRow, 4) = Worksheets(1).Cells(iRange.Row, 4)
           Worksheets(3).Cells(iLastRow, 4).NumberFormat = "0%"
      Case "MosPrime2W"
           Worksheets(3).Cells(iLastRow, 5) = Worksheets(1).Cells(iRange.Row, 4)
           Worksheets(3).Cells(iLastRow, 5).NumberFormat = "0%"
     End Select
    Set iRange = Worksheets(1).Columns(1).FindNext(iRange)
      If Worksheets(1).Cells(iRange.Row, 2) <> iNomer Then
       iLastRow = Worksheets(3).Cells(n + 4, 1).Row
       iNomer = Worksheets(1).Cells(iRange.Row, 2)
      End If
    
    Loop While iRange.Address <> FirstAdr
End Sub

Dim iRange As RangeSet iRange = Columns(3).Find(What:=ComboBox1)Cells(2, 1) = iRange  ' выводится ошибка, что объект неопределен. ошибка возникает в случае. если продолжить писать код дальше после этой строки

Private Sub CommandButton1_Click()
'Dim iRange As Range
'Set iRange = Columns(3).Find(What:=ComboBox1)
'Cells(2, 1) = iRangen = Range(Cells(10, 3), Cells(Rows.Count, 3).End(xlUp)).Count
For i = 10 To nIf Cells(2, 1).Value = Cells(i, 3).Value And Cells(1, 3).Value = Cells(i, 5).Value Then Cells(2, 3) = Cells(i, 6).Value
If Cells(2, 1).Value = Cells(i, 3).Value And Cells(1, 4).Value = Cells(i, 5).Value Then Cells(2, 4) = Cells(i, 6).Value
If Cells(2, 1).Value = Cells(i, 3).Value And Cells(1, 5).Value = Cells(i, 5).Value Then Cells(2, 5) = Cells(i, 6).Value
Next i
End Sub

Sub eee() lr = Selection.CurrentRegion.Rows.Count 'Cells(Rows.Count, 2).End(xlUp).Row For i = lr To 2 Step -1 If Val(Cells(i, 6)) = 0 Then Rows(i).Delete End If Next End Sub

Sub Макрос1() Dim iRange As Range Set iRange = Columns(1).Find(what:="Toyota", LookIn:=xlFormulas, lookAt:=xlWhole) If Not iRange Is Nothing Then iRange.EntireRow.Delete End If End Sub

Sub Макрос1() 
Dim iRange As Range 
Set iRange = Columns(1).Find(what:="ИТОГО" 
If Not iRange Is Nothing Then 
iRange.EntireRow.Delete              'как указать здесь адресс предыдущей ячейки?    
End If 
End Sub

Sub Кнопка1_Щелчок()
Dim iLastRow As Long, iStartRow As Long, iEndRow As Long
Dim iNumber As Long
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
For i = 4 To iLastRow
If iStartRow = 0 Then iStartRow = i
iNumber = Cells(i, "B").Value
If Cells(i + 1, "B")<> iNumber Then iEndRow = i
'основной код
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Worksheets("Лист1").Range(Cells(2, 3), Cells(Rows.Count, 3).End(xlUp)).Value
End Sub
Private Sub CommandButton1_Click()
With Worksheets("Лист1")
Set a = .Range(Cells(2, 3), Cells(Rows.Count, 3).End(xlUp)).Value
a.Find(What:=ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole).Value
End With
ActiveCell.Value = a
End Sub

Sub Кнопка1_Щелчок()n = Worksheets("Лист2" ).Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To n     
With Worksheets("Лист1")    
LastRow = .Cells(65536, 1).End(xlUp).Row + 1     
.Cells(LastRow, 8).Value = Worksheets("Лист2") .Cells(i, 2).Value     
End With
Next i
End Sub

Sub Кнопка1_Щелчок()n = Worksheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To n     
With Worksheets("Лист1")    
LastRow = .Cells(65536, 1).End(xlUp).Row + 1     
.Cells(LastRow, 8).Value = Worksheets("Лист2").Cells(i, 2).Value     
End With
Next i
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Worksheets("Лист4").Range(Range("B4"), Range("B" & Rows.Count).End(xlUp)).Value
End Sub 
 

Private Sub CommandButton1_Click() 
    Application.ScreenUpdating = False                 
    Application.Calculation = xlCalculationManual

     With Worksheets("Лист1")
     LastRow = .Cells(65536, 1).End(xlUp).Row + 1
     .Cells(LastRow, 1).Value = TextBox1.Text           
     .Cells(LastRow, 2).Value = TextBox2.Text          
     .Cells(LastRow, 3).Value = TextBox3.Text
     .Cells(LastRow, 4).Value = TextBox4.Text
     .Cells(LastRow, 6).Value = TextBox5.Text
     .Cells(LastRow, 8).Value = ComboBox1.Value
     End With
    
    Application.Calculation = xlCalculationAutomatic    
    Application.ScreenUpdating = True                
End Sub
 

Private Sub UserForm_Initialize()
iMassiv = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
ComboBox1.List = iMassiv
ComboBox2.List = iMassiv
End Sub
Private Sub CommandButton1_Click()
If iMassiv(Cell(i).Value) = ComboBox1.Value;iMassiv (Cell (j).Value) = ComboBox2.Value Then
Range(Cell(i), Cell(j)).Select
Worksheets("Лист2").Paste
End If
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

Private Sub UserForm_Initialize()
Dim iMassiv As Range
Set iMassiv = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
ComboBox1.Value = iMassiv
End Sub