macro help

[mikesal57]

Hi.

I'm a newbie to this..

I have created a macro to extract data from worksheet to add to an existing list on another sheet..
my problem is that each time i execute the macro it puts the records over the same lines each time , instead of adding it to the list.

what can i do?

thxs
Mike

 

[Sektor]

Change this line:

...
Set rngSource = shSource.Range("D3:U17")[B][COLOR="Red"].SpecialCells(xlCellTypeFormulas + xlCellTypeConstants)[/COLOR][/B]
...

 

[mikesal57]

got this:

your line was yellow

-- removed inline image ---