VBA 怎么样实现插入行

[kyxlzj]

公司有个表格他的形式是这样的
姓名 身高 性别
aa 180 男
bb 190 男
cc 170 女
dd 160 女
我现在想写个宏，实现在每个数据上都插入标题 如下


姓名 身高 性别
aa 180 男
姓名 身高 性别
bb 190 男
姓名 身高 性别
cc 170 女
姓名 身高 性别
dd 160 女

请各位指导一下，谢谢，

[ChinaOBS]

假设有12行，第一行为标题行，倒序插入
Sub Test()
Dim i, j As Long
j = 12
With Sheet1
For i = j To 3 Step -1
.Rows("1:1").Copy
.Rows(i & ":" & i).Insert Shift:=xlDown
Next
End With
End Sub

[kyxlzj]

非常感谢ChinaOBS ， 我再加个统计行的代码就ok了，谢谢