Excel VBA macro gives unexpected results?

Question

I have a macro that loops through a sheet (Sheet4) to place data in another sheet (Ark7). The \'rKvartal\' varaiable is a text string fetched from a third sheet (Ark4). Only