n = 15108097
h = 0
For k = 1 To n
h = h + 1 / k
Next k
ho = h / 2
MsgBox ho