思路:
1、先得到数据区最后一行的数号。
2、从最后一行向第九行循环，并进行插入动作
3、在插入的行逐一复制第七行的标题

Sub inserttitle()
  
  Dim IRow As Integer
  Dim JCol As Integer
  Dim Drow As Integer
  
  Application.ScreenUpdating = False
  
  Drow = Sheets("插入抬头").[B65536].End(xlUp).Row

  For IRow = Drow To 9 Step -1
      Rows(IRow).Insert
      For JCol = 14 To 2 Step -1
           Cells(7, JCol).Copy
           Cells(IRow, JCol).Select
           ActiveSheet.Paste
      Next JCol
  Next IRow
  
  Application.ScreenUpdating = True
  
End Sub

实例样本：插入标头.rar