Find Latitude and Longitude within a radius and within a given slope and return a number

I have more than 1000000 coordinates with heights to sort through. The aim is to be able to give a specific radius and check all coordinates within this radius if the slope is more than a maximum slope. If this is the case it need to put the value (in this case) 100 in a new column. The reason for this is we have a reasonable flat terrain but the entire area is filled with Anthills. I need to sort the data. Normal ground points (No Anthills) should be labelled/coded as 200 and anthills as 100. This will allow my program to know the difference between the ground and anthills. In the tab "Input Sheet" I have a small portion of co-ordinates starting from row 8 to row 53 (this will have to extend all the way down to the last row in excel). I need to copy each row starting with row 8 (C8:E8) and paste it in row 2 (C2:E2). Column H indicates if the points are forming an anthill and the code needs to change. I have my final answer in the tab "Final Answer" that I require for my program. Is there any way I can write a VBA code that will check all the point instead of doing it manually.

I forgot to add the new revised file. Here is the new file.

Just an update from my side. I have changed the work sheet to work on one sheet only to reduce any time excel needs to calculate the data. I had a major problem with getting the result with paste special and skip blanks. When you have a if statement and the result of the if statement ends with "" eg. =if(H8=100,100,"") and you copy, paste special "Values" it does not recognise the cell as a blank sell. This can be tested by =isblank(I8) where I8 is the formula =if(H8=100,100,"") and you copy and paste special "Value". I found a way around this by after paste special you use the Find & Replace command. You firs find (Nothing) and in the replace you type some special characters eg: ?@? You then repeat the command by finding your special characters eg: ?@? and in the replace you put (nothing). Please make sure not to use "" to indicate nothing. Delete everything to indicate (Nothing). You can now check the cell with the isblank formula and you will get "True" indicating it is a blank cell. You can only use paste special Skip Blanks now. I am sure there must be a shorter way to accomplish this and I would appreciate any feedback on how to shorten these steps. I will include my worksheet so you can see the macro and hopefully help to shorten the macro. I would like to thank Kaper as he helped me a lot with his input.