У вас есть несколько проблем с вашей функцией.
Помимо того, что уже было указано, я бы предложил полностью квалифицировать ваш диапазон с помощью рабочей книги и рабочей таблицы. Таким образом, если макрос выполняется, когда вы находитесь в другой книге / листе, он не вызовет проблем.
Sub Macro1()
Dim RngToCheck As Range
Set RngToCheck = ThisWorkbook.Sheets("Sheet1").Range("EG10:EG6000")
Dim ValToFind As Long
ValToFind = 12345
Dim i As Long
For i = RngToCheck.Rows.Count To 1 Step -1
If RngToCheck(i).Value = ValToFind Then
RngToCheck(i + 1).EntireRow.Insert
End If
Next i
End Sub