Object variable or With block variable not set Error during sorting program

Hi,

I'm a complete noob at VBA, and I cannot figure out why I am getting this error while trying to sort a list of numbers. I am trying to use ".Find" to select the maximum value in column H and then cut the row with this max value and the row above it into a new sheet. This process seems to work for most sets of numbers, but for some reason, with the particular set listed in the file, I get the error mentioned in the title. Obviously I am not setting something correctly, but I am not sure which variable needs to be set, and why some lists of numbers work whereas this particular one doesnt.

file is attached


Thanks