Sub Click()
Dim A, i
A = Range("A1").CurrentRegion
For i = 2 To UBound(A)
A(i, 3) = Application.Hex2Dec(A(i, 1)) + Application.Hex2Dec(A(i, 2))
Next i
[a1].Resize(i - 1, 3) = A
End Sub
Sub Click()
Dim A, i
A = Range("A1").CurrentRegion
For i = 2 To UBound(A)
A(i, 3) = Application.Hex2Dec(A(i, 1)) + Application.Hex2Dec(A(i, 2))
Next i
[a1].Resize(i - 1, 3) = A
End Sub