@xladept the code works great and I understood everything, thank you.
I just need one more thing now. When all data are in the same worksheet everything works fine but in my case I have the collums a,b,c and d in sheet1 and the rest in sheet2.
I tried to replace "A" with Sheet1!A but it didnt work , any ideas?

@jindon thank you for your time and efford.