Hi

Bit more. The Paste Values macro can be reduced to

Columns("I:L").Insert shift:=xlToRight
  Range("I:L").Value = Range("E:H").Value
  Columns("E:H").EntireColumn.Hidden = True
  Range("H1").Select
rylo