1 кнопкой на двух листах

Private Sub CommandButton1_Click()
    Dim Object As Вычисления, i As Integer
    Set Object = New Вычисления
    Object.расчет Sheets(1)
    Object.расчет Sheets(2)
    Set Object = Nothing
End Sub

Sub расчет(sh As Object)
    With sh
        For i = 2 To Строк_таблицы
            вес(i) = .Cells(i, 4)
            упаковка(i) = .Cells(i, 8)
            If (вес(i) < 1) Or (упаковка(i) < 1) Then
                MsgBox ("В введенных таблицах используются отрицательные или нулевые значения")
            End If
            Select Case вес(i)    'выбор цены тарифа в зависимости от веса'
                Case 1 To 100
                    .Cells(i, 5) = 0.29
                    тариф(i) = 0.29
                Case 101 To 300
                    .Cells(i, 5) = 0.37
                    тариф(i) = 0.37
                Case Else
                    .Cells(i, 5) = 0.43
                    тариф(i) = 0.43
            End Select
            страховка(i) = страх(вес(i), тариф(i))    'функция расчета страховки'
            .Cells(i, 9) = страховка(i)
            цена(i) = цен(вес(i), тариф(i), страховка(i), упаковка(i))    'функция расчета общей цены отправления'
            .Cells(i, 10) = цена(i)
        Next i
    End With
End Sub