Importing AS400 Reports and Appending Header Data

Private Sub Del_Col_A_CRAP()
 
 ' This macro deletes all rows on the active worksheet
 ' that have X in column Y.
  Dim rng As Range, cell As Range, del As Range
  Dim strCellValue As String
  
  Set rng = Intersect(Range("A2", Range("A" & Rows.Count).End(xlUp)), ActiveSheet.UsedRange)
    For Each cell In rng
    
    strCellValue = (cell.Value)
    
    If strCellValue Like "Company" Or strCellValue Like "I3  REPO" Or strCellValue Like "------" _
    Or strCellValue Like "--------" Or strCellValue Like "PERIOD S" Or strCellValue Like "NO." _
    Or strCellValue Like "ITEM N" Then
    
                     If del Is Nothing Then
                        Set del = cell
                     Else: Set del = Union(del, cell)
                     End If
     End If
  
  Next cell
  
 On Error Resume Next
 
del.EntireRow.Delete




Set del = Nothing
Set cell = Nothing
Set rng = Nothing
strCellValue = vbNullString




On Error GoTo 0
End Sub