application.index with speciallcells(1,2) and add columns is problem

[daboho]

i have data in columns(1) only numeric
but i want use specialcells(2,1)
if columns meet kriteria then i want take store columns(D,E,F) To a
this my coding but still error

Please Login or Register  to view this content.

result in sheet2 is ref please every body can help me

[daboho]

i has modify macro but still error i want use speciallcells
and not using loop

Please Login or Register  to view this content.