Microsoft Office Forums - View Single Post - [Solved] need macro insert row under specific data

excelledsoftware · 09-14-2014, 09:29 AM

This simple snippet should do it. Just set the EvalCol to the column letter containing Gel and 1410.01.

Code:

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