dl = .Range("B65000").End(xlUp).Row + 1
.Cells(dl, 2) = Val(ComboBox3)
.Cells(dl, 3) = ComboBox2
.Cells(dl, 4) = Val(ComboBox1)
.Cells(dl, 5) = Val(TextBox10)
.Cells(dl, 6) = Val(TextBox11)
var1 = Val(TextBox10)
var2 = Val(TextBox11)
var3 = var1 + var2
.Cells(dl, 7) = var3
.Cells(dl, 8) = var3 * 0.196