ms word - How to Merge Macro Code and to avoid flicker screen -

i've made 3 macro , want work one. try merge taking long respond , make screen flicker. indicate code please see code thanks. of code record since im not in coding.

here's code:

sub macrotest27() ' ' merge macro make 1 click ' '     'deleting trash text make clear     'i use find jobspecialtycode highlight , delete.      selection.find.clearformatting     selection.find.replacement.clearformatting     selection.find         .text = "jobspecialtycode"         .replacement.text = ""         .forward = true         .wrap = wdfindcontinue         .format = false         .matchcase = false         .matchwholeword = false         .matchbyte = false         .correcthangulendings = false         .hanjaphonetichangul = false         .matchallwordforms = false         .matchsoundslike = false         .matchwildcards = false         .matchfuzzy = false     end      while selection.find.execute         selection.selectcell         selection.delete unit:=wdcharacter, count:=1         selection.find.clearformatting         selection.find.replacement.clearformatting     loop      'change header font color     'change fist row of header violet     set doc = activedocument     each sec in doc.sections       sec.headers(wdheaderfooterprimary).range.paragraphs(1).range.font.color =  827984       sec.headers(wdheaderfooterfirstpage).range.paragraphs(1).range.font.color = 8527984 next      'footer copy paste     'need copy first footer run macro     'still have error  selection.pagesetup     .footerdistance = inchestopoints(0.5) end selection.pasteandformat (wdformatoriginalformatting) selection.font.size = 1 activewindow.activepane.view.nextheaderfooter loop end sub 

===================================================================

the first 2 macro working fine take time load ms word not responding. , third macro made need copy footer first start macro.