Почему макрос работает отдельно и при слиянии его с другим макросом не работает?

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