for(i in 1:dim(Step10)[1]) {
x <- agrep(Step10$Supplier.Name[i], Step9$SUPPLIER_NAME,
         ignore.case=TRUE, value=FALSE, fixed = TRUE,
         max.distance = 0.05, useBytes = FALSE)
x <- paste0(x,"")
Step10$Supplier_Name[i] <- x
}