Frankenstein's script

Met,
Monster is understatement.
Please note I have not tested the code and some of the if statement are duplicates or wrong.
This is merely to show you it can be done with ifs statements.
If I were, I would have split the code in to 2-3 codes.

Sub Lone2()

Sheets("ITEM TRACKING").Select
Range("A8").Select
IM = ActiveCell.Value
Workbooks("Numbers for Item Add_Change Tracking Spreadsheet v111512C.xlsx").Save
Workbooks("Numbers for Item Add_Change Tracking Spreadsheet v111512C.xlsx").Close

Workbooks.Open ("C:\Test Directory Structure\Add-In Forms\UPLOAD SPREADSHEET.xlsx")

Windows("" & IM & ".xlsx").Activate
Sheets("REQUESTER").Select

Dim aa, ab, ac, ad, ae, af, ag, ah, i As Long, y, ba&, bb&, bc&, bd&, be&, bf&, bg&, bh&

  With Worksheets("REQUESTER")
    y = .Range("F9:DN" & .Cells.Find("*", , , , xlByRows, xlPrevious).Row)
 End With

  ReDim aa(1 To UBound(y), 1 To UBound(y, 2))
  ReDim ab(1 To UBound(y), 1 To UBound(y, 2))
  ReDim ac(1 To UBound(y), 1 To UBound(y, 2))
  ReDim ad(1 To UBound(y), 1 To UBound(y, 2))
  ReDim ae(1 To UBound(y), 1 To UBound(y, 2))
  ReDim af(1 To UBound(y), 1 To UBound(y, 2))
  ReDim ag(1 To UBound(y), 1 To UBound(y, 2))
  ReDim ah(1 To UBound(y), 1 To UBound(y, 2))
  
    
    
     For i = 1 To UBound(y, 1)
        If y(i, 1) = "x" Then
                ba = ba + 1
                aa(ba, 2) = y(i, 63)
                aa(ba, 3) = y(i, 64)
                aa(ba, 4) = y(i, 82)
                aa(ba, 5) = y(i, 83)
                aa(ba, 6) = y(i, 70)
                aa(ba, 7) = y(i, 71)
                aa(ba, 8) = y(i, 72)
                aa(ba, 10) = y(i, 84)
                aa(ba, 11) = y(i, 85)
                aa(ba, 12) = y(i, 73)
                aa(ba, 13) = y(i, 74)
                aa(ba, 14) = y(i, 94)
                aa(ba, 15) = y(i, 95)
                aa(ba, 16) = y(i, 96)
                aa(ba, 17) = y(i, 97)
                aa(ba, 18) = y(i, 75)
                aa(ba, 19) = y(i, 76)
                aa(ba, 20) = y(i, 77)
                aa(ba, 21) = y(i, 98)
                aa(ba, 22) = y(i, 99)
                aa(ba, 23) = y(i, 100)
                aa(ba, 24) = y(i, 101)
                aa(ba, 25) = y(i, 78)
                aa(ba, 26) = y(i, 79)
                aa(ba, 27) = y(i, 80)
                aa(ba, 28) = y(i, 102)
                aa(ba, 29) = y(i, 103)
                aa(ba, 30) = y(i, 104)
                aa(ba, 31) = y(i, 105)
                aa(ba, 32) = y(i, 81)
                aa(ba, 33) = y(i, 88)
                aa(ba, 34) = y(i, 65)
                aa(ba, 35) = y(i, 86)
                aa(ba, 36) = y(i, 87)
                 If y(i, 2) = "x" Then
                   bb = bb + 1
                    ab(bb, 2) = y(i, 63)
                    ab(bb, 3) = y(i, 64)
                    ab(bb, 4) = y(i, 82)
                    ab(bb, 5) = y(i, 70)
                    ab(bb, 6) = y(i, 71)
                    ab(bb, 7) = y(i, 72)
                    ab(bb, 8) = y(i, 65)
                 End If
          End If
                If y(i, 3) = "x" Then
                     bc = bc + 1
                      ac(bc, 2) = y(i, 63)
                      ac(bc, 4) = y(i, 67)
                      ac(bc, 5) = y(i, 68)
                      ac(bc, 6) = y(i, 70)
                      ac(bc, 7) = y(i, 71)
                      ac(bc, 8) = y(i, 72)
                End If
                     If y(i, 4) = "x" Then
                        bd = bd + 1
                        ad(bd, 2) = y(i, 113)
                        ad(bd, 4) = y(i, 68)
                        ad(bd, 5) = y(i, 63)
                        ad(bd, 6) = y(i, 110)
                        ad(bd, 7) = y(i, 108)
                        ad(bd, 8) = y(i, 88)
                     End If
                           If y(i, 5) = "x" Then
                              be = be + 1
                             ae(be, 2) = y(i, 58)
                             ae(be, 3) = y(i, 59)
                             ae(be, 4) = y(i, 15)
                           End If
                         If y(i, 11) = "x" Then
                            bf = bf + 1
                            af(bf, 2) = y(i, 113)
                            af(bf, 4) = y(i, 107)
                            af(bf, 5) = y(i, 68)
                            af(bf, 6) = y(i, 63)
                            af(bf, 7) = y(i, 110)
                            af(bf, 8) = y(i, 108)
                        End If
                                If y(i, 11) = "x" Then
                                   bg = bg + 1
                                   ag(bg, 2) = y(i, 63)
                                   ag(bg, 4) = y(i, 67)
                                   ag(bg, 5) = y(i, 68)
                                   ag(bg, 6) = y(i, 64)
                                End If
                                     If y(i, 11) = "x" Then
                                        bh = bh + 1
                                        ah(bh, 2) = y(i, 63)
                                        ah(bh, 3) = y(i, 64)
                                        ah(bh, 4) = y(i, 65)
                                     End If
        
                 
     Next
  Windows("UPLOAD SPREADSHEET.xlsx").Activate
  With Worksheets("IC11 ADD")
    .UsedRange.Offset(5).ClearContents
    If ba > 0 Then .Range("A6").Resize(ba, UBound(y, 2)).Value = aa
 End With
  
   With Worksheets("IC11 CHANGE")
     .UsedRange.Offset(5).ClearContents
     If bb > 0 Then .Range("A6").Resize(bb, UBound(y, 2)).Value = ab
   End With

   With Worksheets("PO13")
     .UsedRange.Offset(5).ClearContents
     If bc > 0 Then .Range("A6").Resize(bc, UBound(y, 2)).Value = ac
   End With

   With Worksheets("PO25.6 NEW AGREEMENT")
     .UsedRange.Offset(5).ClearContents
     If bd > 0 Then .Range("A6").Resize(bd, UBound(y, 2)).Value = ad
   End With

   With Worksheets("PO25.6 HOLD")
     .UsedRange.Offset(5).ClearContents
     If be > 0 Then .Range("A6").Resize(be, UBound(y, 2)).Value = ae
   End With

   With Worksheets("PRICE ONLY")
     .UsedRange.Offset(5).ClearContents
     If bf > 0 Then .Range("A6").Resize(bf, UBound(y, 2)).Value = af
   End With
   
   With Worksheets("P013 INACT")
     .UsedRange.Offset(5).ClearContents
     If bg > 0 Then .Range("A6").Resize(bg, UBound(y, 2)).Value = ag
   End With
   
   With Worksheets("IC11 INACT")
     .UsedRange.Offset(5).ClearContents
     If bh > 0 Then .Range("A6").Resize(bh, UBound(y, 2)).Value = ah
   End With
   
If Sheets("IC11 CHANGE").Range("$B$6").Value > 0 Then Sheets("IC11 CHANGE").Tab.ColorIndex = 6

If Sheets("PO13").Range("$B$6").Value > 0 Then Sheets("PO13").Tab.ColorIndex = 6

If Sheets("PO25.6 NEW AGREEMENT").Range("$B$6").Value > 0 Then Sheets("PO25.6 NEW AGREEMENT").Tab.ColorIndex = 6

If Sheets("PO25.6 HOLD").Range("$B$6").Value > 0 Then Sheets("PO25.6 HOLD").Tab.ColorIndex = 6

If Sheets("PRICE ONLY").Range("$B$6").Value > 0 Then Sheets("PRICE ONLY").Tab.ColorIndex = 6

If Sheets("IC11 ADD").Range("$B$6").Value > 0 Then Sheets("IC11 ADD").Tab.ColorIndex = 6

If Sheets("P013 INACT").Range("$B$6").Value > 0 Then Sheets("P013 INACT").Tab.ColorIndex = 6

If Sheets("IC11 INACT").Range("$B$6").Value > 0 Then Sheets("IC11 INACT").Tab.ColorIndex = 6
   

End Sub