title: Excel VBA inquiry regarding find a specific word, inserting a row, and pasting into said row
body: <pre><code>Sub Worksheet_Change(ByVal Target As Range)
  
  Application.ScreenUpdating = False
  If Target.Cells.Count &gt; 1 Then Exit Sub
  
  Dim OutputFile As Workbook
  Dim Inputpath As String
  Dim Outputpath As String
  Dim del1 As Variant
  
      If Not Intersect(Target, Range("G:G")) Is Nothing Then
          Application.ScreenUpdating = False
          Set InputFile = ActiveWorkbook
          Set OutputFile = Workbooks.Open("\\SHKFS1\Shared\MONAHAN\1st watch files\inst status sheet\STATUSSHEETINSTITUTIONAL.xlsm")
          del1 = Target.Offset(0, -5).Value
          If Target.Validation.Type = 3 Then
              If Target.Value = "" Then
                  OutputFile.Sheets("UI").Cells.Find(del1, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).EntireRow.Delete
              Else
                  OutputFile.Sheets("UI").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 2) = Target.Offset(, -5).Resize(, 2).Value
                  OutputFile.Sheets("UI").Cells(Rows.Count, 1).End(xlUp).Offset(, 3) = Target.Value
                  OutputFile.Sheets("UI").Cells(Rows.Count, 1).End(xlUp).Offset(, 4).FormulaR1C1 = "Monahan"
              End If
              OutputFile.Close savechanges:=True
          End If
          Application.ScreenUpdating = True
      End If
  End Sub
  </code></pre>
  
  <p>I want to be able to find the word “UI” and insert a row below it and paste the information above(after the “Else” in the code) into that row that was inserted. Same thing would be for the “LOP”.</p>
  
  <p>UI</p>
  
  <p>Beam, Jim 123456</p>
  
  <p>Jones, Jim 123456</p>
  
  <p>LOP</p>
  
  <p>Davis, Betty 456789</p>
  
  <p>Crack, Donald 456789</p>