MS Excel / VBA help thread

 'Create an Array out of the Table's Data
  Set TempArray = table.DataBodyRange
  myArray2 = Application.Transpose(TempArray)
  
'Designate Columns for Find/Replace data
  Find = 1
  Replace = 2

' define rng
LR = Range("A:fb").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set rng = Range("o2:fb" & LR)


'Loop through each item in Array lists find and replace
     For x = LBound(myArray2, 1) To UBound(myArray2, 2)
       rng.Cells.Replace What:=myArray2(Find, x), Replacement:=myArray2(Replace, x), _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
            SearchFormat:=False, ReplaceFormat:=False
    Next x