Excel VBA根据列名称将数据从表移动到表

I created a procedure that loops in all header columns of table 1 and search for the same header column in table 2 to update relveant cells based on matched column name.I created a procedure that loops in all header