录了一小段宏，看起来很长，请问各位老师这段宏能否精简下

欧洲皇家帝企鹅

目的是将1到4行零散的数到第五行对应位置上其中E5和F5是根据D5的内容进行计算可以不予考虑。录出来之后一看感觉好长直觉上觉得应该可以精简，特来询问各位老师

weisilisid

代码，简化如下
Range("A1:N7").NumberFormatLocal = "@"
    Range("B4").Copy Range("A5")
    Range("B2").Copy Range("B5")
    Range("B3").Copy Range("C5")
   
    Range("F1").Copy Range("D5")
   
    Range("E5:F5").NumberFormatLocal = "G/通用格式"
    Range("E5").FormulaR1C1 = "=VLOOKUP(RC[-1],编码库!C[-4]:C,4,FALSE)"
    Range("F5").FormulaR1C1 = "=VLOOKUP(RC[-2],编码库!C[-5]:C[-1],5,FALSE)"
   
    Range("B1").Copy Range("G5")
    Range("D1").Copy Range("H5")
    Range("F2").Copy Range("I5")