Private Sub CommandButton1_Click()
    Dim kainagalutine As Double
    Dim kainagrindu As Double
    Dim kainasienu As Double
    Dim kainastogo As Double
    
    Dim dazai1m As Double
    Dim vpamatu As Double
    Dim vjuodgrsmelis As Double
    Dim vjuodgrbetonas As Double
    Dim vsienos As Double
    Dim ssienos As Double
    Dim sgrindu As Double
    Dim vgrindu As Double
    Dim ngegniu As Double
    Dim d As Double
    Dim vgegniu As Double
    Dim sstogo As Double
    
    dazai1m = UserForm1.ComboBox5 / 10
    vpamatu = 0.48 * UserForm1.TextBox1.Value + 0.48 * UserForm1.TextBox2.Value - 0.19
    vjuodgrsmelis = (UserForm1.TextBox1.Value - 0.4) * (UserForm1.TextBox2.Value - 0.4) * 0.3
    vjuodgrbetonas = (UserForm1.TextBox1.Value - 0.4) * (UserForm1.TextBox2.Value - 0.4) * 0.1
    ssienos = (2 * (UserForm1.TextBox1.Value * UserForm1.TextBox3.Value + UserForm1.TextBox2.Value * UserForm1.TextBox3.Value)) - UserForm1.TextBox4.Value * 2 - UserForm1.TextBox5.Value + UserForm1.TextBox2.Value * UserForm1.TextBox6.Value
    vsienos = 0.25 * ssienos
    vgrindu = 0.3 * UserForm1.TextBox1.Value * UserForm1.TextBox2.Value
    sgrindu = UserForm1.TextBox1.Value * UserForm1.TextBox2.Value
    ngegniu = UserForm1.TextBox1.Value / 0.9 * 2
    d = ((UserForm1.TextBox6.Value) ^ (2) + (0.5 * UserForm1.TextBox2.Value) ^ (2)) ^ (0.5)
    vgegniu = (d + 0.3) * 0.2 * 0.5 * ngegniu
    sstogo = d * UserForm1.TextBox1.Value
    
    kainagrindu = vjuodgrsmelis * 30 + vjuodgrbetonas * UserForm1.ComboBox1.Value + sgrindu * UserForm1.ComboBox2.Value + sgrindu * UserForm1.ComboBox3.Value
    kainasienu = ssienos * UserForm1.ComboBox4.Value + ssienos * UserForm1.ComboBox3.Value + ssienos * UserForm1.ComboBox5.Value * dazai1m
    kainastogo = vgegniu * UserForm1.CamboBox6.Value + sstogo * UserForm1.ComboBox8.Value
    kainagalutine = kainagrindu + kainasienu + kainastogo + UserForm1.TextBox5.Value * UserForm1.ComboBox7.Value
    Cells(5, 3) = kainagrindu
    Cells(6, 3) = kainasienu
    Cells(7, 3) = kainastogo
    Cells(8, 3) = kainagalutine
    UserForm1.Hide
End Sub