做工资条时,如何分行插入表头

下面是一段宏代码及可实现。修改一下行数值及可
Sub Macro1()
'
' Macro1 Macro
' 宏由 ali 录制，时间: 2007-11-12
'从100行开始到第1行插入 从最后一行开始插入最顶行,只需改此数据及可实现,已测试OK.

For i = 100 To 1 Step -1

Rows(i).Select
Selection.Insert Shift:=xlDown

Next i

End Sub

如果表头相同的话，这样：
页面设置》工作表》顶端标题行》$1:$2