copy vba autofiltered outcome to blank cells on the same sheet

[bleach2]

Hi, everything works but VBA just ignore the autofilter (what i want to copy is visible), i want to paste the value to the blank cell "visibly" just above it.

for each c in rng
c=c.offset(1,0)

this gave me other results (not visible in autofilter mode)

the row number is random, so i can't set a rule to ask to copy from which row, but visibly i can through autofilter.

 

[bleach2]

i read many posts on this forum and others but did not find