=IFERROR(...)

Sub CheckList()
    Dim sh As Worksheet
    Dim sh1 As Worksheet
    Dim rCOunt As Long
    Dim i
    Dim myColor
    Dim myCell
    Dim newCell
Set sh = Sheets(2)
Set sh1 = Sheets(1)
With sh
rCOunt = .Cells(.Rows.Count, 1).End(xlUp).Row
myColor = sh.Range("D9").Interior.Color
For i = 26 To rCOunt
If .Cells(i, "D").Interior.Color = myColor Then
Set myCell = sh1.Range("B:B").Find(.Cells(i, "D"))
If myCell Is Nothing Then Set newCell = (.Cells(i, "D"))
      
    If newCell <> 0 Then
    'MsgBox (newCell & " вставить в Лист1")
     'newCell.Copy
     'Selection.Copy
     MsgBox (newCell)
     Sheets("Динамика").Select
     Range("B7").Select
     newCell.Insert Shift:=xlDown
      End If
    End If
    Next i
    End With
    Set sh = Nothing
    Set sh1 = Nothing
  
    End Sub

Range("B7").Select

Sub AddNewINN()
    Dim sh As Worksheet
    Dim sh1 As Worksheet
    Dim rCOunt As Long
    Dim i
    Dim myColor
    Dim myCell
    Dim newCell
    Dim lastrow As Long
    
Set sh = Sheets(2)
Set sh1 = Sheets(1)
' lastrow = Sheets("Динамика").Range("A65536").End(xlUp).Row
With sh
rCOunt = .Cells(.Rows.Count, 1).End(xlUp).Row
myColor = sh.Range("D9").Interior.Color
For i = 9 To rCOunt
If .Cells(i, "D").Interior.Color = myColor Then
Set myCell = sh1.Range("B:B").Find(.Cells(i, "D"))
If myCell Is Nothing Then Set newCell = (.Cells(i, "D"))
      
    If newCell <> 0 Then
         Sheets("Динамика").Select
          lastrow = Sheets("Динамика").Range("A65536").End(xlUp).Row
     Range("A" & lastrow).Select
     ActiveCell.EntireRow.Select
     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    MsgBox (newCell & " копировать в Лист1")
    Range("B" & lastrow).Select
      newCell.Copy 'Destination:=Sheets("Динамика").Range("B" & lastrow)
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      End If
    End If
    Next i
    End With
    Set sh = Nothing
    Set sh1 = Nothing
      End Sub

If newCell <> 0 Then
Sheets("Динамика").Select
lastrow = Sheets("Динамика").Range("A65536").End(xlUp).Row
Range("A" & lastrow).Select
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
MsgBox (newCell & " копировать в Лист1")
Range("B" & lastrow).Select
newCell.Copy 'Destination:=Sheets("Динамика").Range("B" & lastrow)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

                If newCell <> 0 Then
                    lastrow = sh1.Range("A65536").End(xlUp).Row
                    sh1.Rows(lastrow - 1).Copy
                    sh1.Rows(lastrow).Insert xlDown, xlFormatFromLeftOrAbove
                    sh1.Range("B" & lastrow).Value = newCell.Value
                    Application.CutCopyMode = 0
                End If