为什么宏单独工作，而与另一个宏合并时却不工作？

Question

当我单独执行该宏时，它可以工作，但是当我与另一个宏合并时，则不起作用。

Sub test()
    Dim z As Integer
    Sheets("transp").Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove   
  For z = 1 To 110
    Sheets("transp").Cells(2, z).Value = "VAR_" & Sheets("transp").Cells(1, z).Value & "_" & Sheets("input").Cells(1, 4).Value
  Next z
    Sheets("transp").Rows("1:1").Select
    Selection.Delete Shift:=xlUp
End Sub