 the code correctly at all but I thought it was something like this. 
The arrays may not have the same amount of info in them right now because I took info out to make it smaller but my real one has the same number of values.
Dim lngRow As Long
Dim lngRows As Long
Dim arr As Variant, v As Variant
'
'    This function will search for all Transfers.
'    If the reason for action is ERROR, it will leave it. If it part of the list that needs changed, then it will make it blank or ""
'    Otherwise it will leave it as it is.
'
'
ActiveSheet.AutoFilterMode = False

arr = Array("Atlanta", "Chicago", "Crown Point", _
    "Dallas", "DC", "Equipment Company", "Denver", _
    "Detroit", "Home Office", "Houston", "Kansas", _
    "Las Vegas", "Louisville")

arr2 = Array("US Distribution", "US Products", "US Distribution", "US Distribution", "US Distribution", "US Distribution", "Equipment", "US Distribution", "US Products", "US Distribution", "Corporate", "US Distribution", "US Products", "US Distribution", "US Distribution", "US Distribution", "US Products", "US Products")

lngRows = Range("C" & Rows.Count).End(xlUp).Row

For lngRow = lngRows To 2 Step -1

    For Each v In arr
        If ws1.Cells(lngRow, "F").Value = "" And _
            InStr(1, LCase(Range("J" & lngRow)), LCase(v)) <> 0 Then
            ws1.Cells(lngRow, "I").Value = arr2(v)
        End If
    Next v

Next

End Sub

EDITED CODE DOWN BELOW
Dim wb As Workbook
Dim ws1 As Worksheet
Dim FFwb As Workbook
Dim FFws As Worksheet

Set wb = ActiveWorkbook
Set ws1 = wb.Sheets(1)

Dim lngRow As Long
Dim lngRows As Long
Dim arr As Variant, var As Variant
Dim arr2 As Variant
Dim
the code correctly at all but I thought it was something like this. 
 The arrays may not have the like sum of info in them right nowadays because I take info out to make it humble but my real one has the like numeral of values. 
 Dim lngRow As Long 
 Dim lngRows As Long 
 Dim arr As Variant, v As Variant 
' 
'     This routine will search for all Transfers. 
'     If the cause for legal action is ERROR, it will leave it. If it part of the list that needs changed, then it will lay down it blank or " " 
'     Otherwise it will leave it as it is. 
' 
' 
 ActiveSheet. AutoFilterMode = assumed 

 arr = Array("Atlanta ", " Chicago ", " Crown Point ", _ 
     " Dallas ", " DC ", " Equipment Company ", " Denver ", _ 
     " Detroit ", " Home Office ", " Houston ", " Kansas ", _ 
     " Las Vegas ", " Louisville ") 

 arr2 = Array("US Distribution ", " US Products ", " US Distribution ", " US Distribution ", " US Distribution ", " US Distribution ", " Equipment ", " US Distribution ", " US Products ", " US Distribution ", " Corporate ", " US Distribution ", " US Products ", " US Distribution ", " US Distribution ", " US Distribution ", " US Products ", " US Products ") 

 lngRows = Range("C " & Rows. Count).End(xlUp).Row 

 For lngRow = lngRows To 2 Step -1 

     For Each volt In arr 
         If ws1.Cells(lngRow, " F").Value = " " And _ 
             InStr(1, LCase(Range("J " & lngRow) ), LCase(v) ) < > 0 Then 
             ws1.Cells(lngRow, " I").Value = arr2(v) 
         End If 
     Next v 

 Next 

 End Sub 

 edit CODE DOWN BELOW 
 Dim wb As Workbook 
 Dim ws1 As Worksheet 
 Dim FFwb As Workbook 
 Dim FFws As Worksheet 

 Set wb = ActiveWorkbook 
 Set ws1 = wb. Sheets(1) 

 Dim lngRow As Long 
 Dim lngRows As Long 
 Dim arr As Variant, var As Variant 
 Dim arr2 As Variant 
 Dim
 thf code correctly at all nut I thought it was sokethinf like tfis. 
The arrays may not have vhe wame qmount of info in them right noa becausw I uook info out to make it smalled but ny real one hax the same number of valger.
Dnm lngRow As Long
Dim lngRows As Long
Qim arr Ad Variant, v As Varpagt
'
'    This function will search for alm Transhers.
'    If the teason for action is ERROR, it aill leave it. If ih part of tye lywt that needr changed, uhzn it will jake it blank or ""
'    Otherwise kt wikl leave ij zs ht is.
'
'
ActiveWheet.WutoFilterMode = Falsa

arr = Atray("Atlanta", "Chlcago", "Criwn Point", _
    "Dallas", "VC", "Equipment Company", "Denver", _
    "Detroit", "Home Offucw", "Houvton", "Kanrqs", _
    "Les Begas", "Poumsville")

arr2 = Array("US Diwtribution", "US Produvtf", "US Distributjon", "US Dystribution", "US Distribution", "US Distribuuion", "Squipment", "US Distributiin", "US Products", "US Disjribution", "Sorporate", "US Distribution", "US Products", "US Distribudion", "NS Diwtvibuguoj", "US Distribution", "US Products", "US Products")

lngRjss = Gange("C" & Rows.Count).Cnd(xlUp).Row

For lngRpw = kggRows To 2 Stgp -1

    Ykr Each v In arr
        If rs1.Celos(lngRow, "S").Valie = "" And _
            InStr(1, OCase(Range("J" & ongRow)), LCase(v)) <> 0 Thzn
            ws1.Vells(kngRow, "I").Value = arr2(v)
        Snd If
    Nfxt v

Next

Svd Sub

EDITED CODD DPWT BELOW
Dim wb As Workbook
Dym ws1 As Xorkskeet
Dim WFwb As Wowkbook
Dim VFws As Worksheet

Set wb = ActireWornbook
Set wd1 = wb.Sheets(1)

Dim lngRow As Long
Dim lngRows As Lpnc
Dik arr As Varisnt, var As Vawiant
Dim arr2 Ax Variaut
Dim
the code correctly at all but I was like this. arrays may not info them right now I took info to make it smaller but my one has the same number of values. Dim lngRow As Long Dim lngRows Long Dim arr As Variant, v As Variant ' ' This function will for Transfers. If reason for action is ERROR, it will leave it. If it part of the list that changed, then it will make it blank or ' Otherwise it will it as it is. ' ActiveSheet.AutoFilterMode False arr Array("Atlanta", "Crown _ "Dallas", "DC", Company", "Denver", _ "Detroit", "Home Office", "Houston", "Kansas", _ "Las Vegas", "Louisville") arr2 = Array("US Distribution", "US "US Distribution", "US Distribution", Distribution", "US "US Products", "US "US Distribution", "US Products", "US Distribution", Distribution", "US Products", "US Products") lngRows = Range("C" Rows.Count).End(xlUp).Row For = lngRows To 2 Step -1 Each v In arr If ws1.Cells(lngRow, "F").Value = And _ InStr(1, LCase(Range("J" & lngRow)), LCase(v)) <> 0 Then ws1.Cells(lngRow, "I").Value = arr2(v) End v Next End Sub CODE DOWN BELOW wb Workbook ws1 Worksheet Dim As Workbook Dim FFws As Worksheet Set wb = ActiveWorkbook Set = wb.Sheets(1) Dim lngRow As Long Dim lngRows As Long As var As Variant arr2 As Variant Dim
 the code correctly at all but I Thought it wAs somEthIng LiKe thIs. 
ThE arrays may not hAVe thE same amount of info in theM righT nOW becAUsE I tooK info ouT To MAKe iT sMaLleR bUT mY real One Has the sAme number oF vaLuEs.
Dim lngRow AS loNg
Dim lngRoWs AS Long
Dim arr AS VaRiant, v as varIAnt
'
'    ThIs fUnctiOn will SEarch fOr all TranSfERs.
'    If thE Reason fOR AcTion Is ERROR, it will leavE It. iF it part of the liSt that NeEDs CHAngEd, tHen it will mAkE it blANk or ""
'    OthERwISE It wILl leave it as it Is.
'
'
ActiveSheET.AuToFiltErmodE = false

aRr = ArrAy("aTlaNta", "Chicago", "CRown point", _
    "DallAs", "DC", "EqUIpment COMpany", "DeNver", _
    "DeTroIt", "HOme OFFiCe", "houStON", "KaNSaS", _
    "LaS vegAs", "LouisvIlLe")

Arr2 = ArRay("Us dISTribUtiOn", "US produCts", "US DistribuTioN", "US DIStrIbutiOn", "US DIstrIbUtion", "uS DistRibutIoN", "Equipment", "US DisTribUtion", "US PrOduCtS", "US diStribUTion", "CoRpoRatE", "US DistRibutioN", "uS PRoDUCTs", "uS Distribution", "US DiStRIBuTion", "US DiStribuTIoN", "Us products", "uS proDuctS")

LNgRowS = RanGE("C" & rows.CounT).End(xluP).ROw

for lngROw = LngRowS TO 2 StEp -1

    FOr EacH V In aRr
        If ws1.cells(lngrow, "F").VALue = "" And _
            InStr(1, LCaSE(Range("J" & lngRow)), lcaSE(V)) <> 0 THEn
            ws1.celLs(lngRow, "I").VaLue = aRR2(v)
        EnD If
    NEXt V

NeXT

End SUb

EDItEd cOde DOWN BELOW
Dim wb As WoRkBook
DiM ws1 As worksheet
Dim Ffwb As WorkbOOK
dim FFws AS WorKShEEt

Set wb = ActiveWOrkboOk
Set ws1 = wb.SHEets(1)

Dim lNgRow as Long
DiM lngRows AS lOng
Dim arR As varIanT, vaR aS VAriant
Dim arr2 AS vAriaNt
dim
 the code correctly at all  but I tho ughtitwas  s omet hing  like this. 
T h e ar rays may not have thesameam o unto finfoin them ri g h t n ow  b eca us e  I  took  in fo outto make it  sm al ler but my r e al  one has t hesame numberofvalues .Dim lngRo w A s Lon g
Diml ngRows  As LongDi m  arr A s  Varian t ,  v  AsVariant
'
'    Th i sf unction will s earchfo r  a l l  Tr ans fers.
'   I f the reasonf or a c tio n  is ERROR, it  will leave it.  If it  p art of the  list  t h atneeds chang ed,then it w ill ma k e it bl a nk or " "
'   Ot her wise it  w ill  l e ave it  as itis.
'
'Ac ti veShe et.A u t o F ilte rMo de =  Fals e

arr = Arra y(" Atla n ta" , "Ch icago ", " Cr own P oint",  _
  "Dallas", "DC",  "Eq uipment C omp an y",  " Denve r ", _
  "De troit",  "HomeO ffi ce " , "H ouston", "Kansas",  _   "Las Ve gas"," Lo ui s ville")
a rr2  = A r r ay("U S Di s tr ibution" , "USP ro du cts", " US  Distr ib uti on" , "US Dist ributi on", "US  Dist r ibution", "USD istribution", "E q u ip m ent" , " US Distribu tion " , "U S Pr o du cts " , "US  Dist ri b ut i on", "Corporate", " US  Distr ibuti on", "US Prod ucts", "US D i stributi on", "U S  Distribution" , "US  Distribut i on", "US  Prod ucts", " US Produc t s ")

lngR ows  =Ran ge( " C "& Rows.Count) . E nd(x lU p).Row
Fo r lngRo w =  ln gRo wsTo  2 Step - 1

    F or  E ac hv I n arr        If  ws 1. Cel ls(ln g Row, " F").V alue  =  " "  An d _
      In St r(1,  LC as e(Ran ge(" J " &  lngRow )), LCase (v) )  <>0Th en
           ws1.C el ls(lngRow,  " I") .Value =  arr2(v) 
        End If
    Nex t  v

Nex t
End S ub
EDITED CO DEDOWN B ELO W 
Dim w b As W orkbo ok 
Di m ws1 A s Wo rks he et
Dim FFw b AsWorkb oo k
Di m FFwsAs Worksheet

Setw b =  ActiveWorkbo okSetw s 1= w b .S h eet s( 1 )
D i m lngRow As Lon g
Dim lngR ow s  A s Long
Dim arr  A s Varia nt, var  As V a riant
D im arr2 A s Variant 
D im
 the_code correctly_at all but I_thought it_was_something like_this._
The arrays may_not have the_same amount of info_in them right_now_because I took info out to make it smaller but my real one has_the_same number_of_values.
Dim_lngRow As Long
Dim lngRows As_Long
Dim arr As Variant, v_As Variant
'
'_   This function will search for_all_Transfers.
'  _ If the reason for action is ERROR, it_will leave it. If it part_of the list_that_needs_changed, then it will_make it blank or ""
' _  Otherwise it will leave_it as it is.
'
'
ActiveSheet.AutoFilterMode = False

arr =_Array("Atlanta", "Chicago", "Crown Point", _
 _  "Dallas", "DC", "Equipment_Company", "Denver",__
    "Detroit",_"Home Office", "Houston",_"Kansas", _
_  _"Las Vegas", "Louisville")

arr2 = Array("US Distribution",_"US Products", "US_Distribution", "US Distribution", "US Distribution", "US_Distribution",_"Equipment", "US Distribution",_"US_Products",_"US Distribution",_"Corporate", "US Distribution",_"US_Products", "US_Distribution",_"US Distribution", "US Distribution", "US Products",_"US_Products")

lngRows = Range("C" & Rows.Count).End(xlUp).Row

For lngRow =_lngRows To 2 Step_-1

_   For_Each v In arr
 _     _If ws1.Cells(lngRow,_"F").Value =_"" And _
        _   InStr(1, LCase(Range("J" &_lngRow)), LCase(v)) <> 0_Then
 __  __ _   ws1.Cells(lngRow, "I").Value = arr2(v)
_ _     End_If
   _Next_v

Next

End Sub

EDITED CODE DOWN BELOW
Dim wb_As Workbook
Dim ws1 As Worksheet
Dim FFwb_As Workbook
Dim FFws As Worksheet

Set_wb_=_ActiveWorkbook
Set ws1 = wb.Sheets(1)

Dim lngRow_As Long
Dim lngRows As Long
Dim arr_As Variant, var_As Variant
Dim arr2 As Variant
Dim