Sub InsertRow()
  Dim CheckRow As Long, EndRow As Long, CheckString As String, EvalCol As String
  
  
  EvalCol = "G" 'Set this to the column you need to evaluate keep it in quotes
  

  EndRow = Range(EvalCol & 50000).End(xlUp).Row
  
  For CheckRow = 2 To EndRow
    CheckString = Range(EvalCol & CheckRow).Value
    If CheckString = "1410.01" Then
      Range(CheckRow + 1 & ":" & CheckRow + 1).Insert
    End If
  Next CheckRow
  
End Sub

Sub InsertRows()
Dim lRow As Long, i As Long
With ThisWorkbook.Worksheets("Sheet1").UsedRange
  For i = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
    If .Range("G" & i).Value = "1410.01" Then
       While .Range("G" & i + 1).Value <> ""
          .Range("G" & i + 1).EntireRow.Insert
       Wend
     End If
  Next
End With
End Sub