Dim ProdRow As Long

Sub vstavka_na_list_1(): Call vst("Sheet1"): End Sub
Sub vstavka_na_list_2(): Call vst("Sheet2"): End Sub
 
Sub vst(sNameSheet As String)
    With Worsheets(sNameSheet)
        .Range("A1").Value = 1
    End With
End Sub

Sub vstavka_na_list_1()
    Dim vst As Worksheet
    
    Set sht = Worsheets("Sheet1")
    Call vst(sht)
    
    Set sht = Nothing
End Sub
 
Sub vst(MySheet As Worksheet)
    With MySheet
        .Range("A1").Value = 1
    End With
End Sub