Is it possible to make this macro faster? Copy and paste when condition is met

Question

I have a problem with macro running too slow and I guess it is just because of lack of my knowledge.

I have a macro that is copying data from "database" and