Sub Вставка()
Dim a As Integer
Dim iLastRow As Long
a = Right(Cells(2, 1), 2)
With Sheets("база")
iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To iLastRow
If a = Right(.Cells(i, 1), 2) And Cells(2, 2).Value = .Cells(i, 2).Value Then
MsgBox ("Этот № есть в базе!")
Exit Sub
End If
If a = Right(.Cells(i, 1), 2) And Cells(2, 2).Value < .Cells(i, 2).Value Then
Range("A2:D2").Copy
.Range(.Cells(i, 1), .Cells(i, 4)).Insert Shift:=xlDown
Application.CutCopyMode = False
MsgBox ("ГОТОВО!")
  Exit Sub
End If
If i = iLastRow And Cells(2, 2).Value > .Cells(i, 2).Value Then
Range("A2:D2").Copy
.Range(.Cells(i + 1, 1), .Cells(i + 1, 4)).Insert Shift:=xlDown
Application.CutCopyMode = False
End If
Next
End With
MsgBox ("ГОТОВО!")
End Sub