Chek sum very slow code

i have data in col E until 6000 row , i must part range become Set r = .Range("E1:E200").Resize(, 2)
if use Set r = .Range("E1:E6000").Resize(, 2) code can not to run
my problem is if in columns(F) example value = 10
and i want to chek in columns(E) is result = 10
for example in e10 = 5 and e 11 = 5
then in col G after makro run = E10 + E11
this is my code

Please Login or Register  to view this content.

and this is myfile

HOW TO FASTER MY CODE PLEASE HELP

Can you explain the overall object of the exercise and how the results in column G relate to the original data - in laymans terms - I know they relate in some way since the macro is using an algorithm.

Hello daboho,

The macro only takes about 7 seconds on my machine. I have to say given all the calculations needed to produce the table that is not an uncomfortably long or excessive wait

On a side note, the code looks like it was written by Jindon.

Try change and run code is very slow and long to run

Please Login or Register  to view this content.

Richard
ex : in F2 = 100
First loop for col F = F2
And in col E Search value if sum 2 cells in cols(e) = F2
For exampe in e20 = 30 ,and in e10= 70
And result in col G2= E10 + E20
And search agaian is result sum = F2
Ex : e5 = 60,e8= 10
H2 = e5 + e8...etc
After loop F2 next to F3
....until lastrow in col F