speeding up code that is super slow

Did you know ?

with ws4
  .Range("A57:J58,A9:J9,A4:J4").Borders.LineStyle = xlContinuous
  .Range("A4:A8").Borders(xlEdgeLeft).LineStyle = xlContinuous
  .Range("J6:J8").Borders(xlEdgeRight).LineStyle = xlContinuous
 
  .Range("A57:H57") = split("DROP|PICK UP|FLAT|ASSY|DELIVERY||MODIFICATIONS|INSTALLATION|","|")
  .RANGE("a58:h58")=ARRAY(.[I3],.[J3],.K3],.[L3],"",.[O3],.[N3],[Q3])
End With

But maybe its better to design a formatted master sheet that can be copied every time you need a new sheet based on this format. You better not use VBA for designing/formatting.