Hej!

Gör en loop som går från 10 till 21: for iRad = 10 to 21

I den raden kan du granska cellens värde: if(iRad,[kolumnens nummer med början på 1].value >=0 then...

Sedan kan du i if-satsen ha en variabel iTargetRow som får första målradens nummer vid programstart, t.ex. 5 om du vill börja skriva på rad 5. Denna variabel använder du för att kopiera cell för cell.

[målarkets namn].cells(iTargetRow,[kolumnnummer 1]).value = [källarkets namn].cells(iRad,[kolummummer 1].value och så vidare tills alla kolumner kopierats.

Därefter räknar du upp iTargetRow med 1 så nästa överföring sker till följande tomma rad.