Нет необходимости в VBA. Просто используйте функцию VLOOKUP. Вы можете использовать что-то вроде следующего в K2 на Листе 1.
=IFERROR(VLOOKUP($A2,Sheet2!$A$1:$J$58000,2,false),"")
А для L2:
=IFERROR(VLOOKUP($A2,Sheet2!$A$1:$J$58000,3,false),"")
и т.д.