vba：复制表头

Sub 复制表头()
Dim i As Integer
For i = 1 To 39
Sheets("汇总").Select
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet" & i).Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Next i
End Sub