Kopiera vissa celler utifrån ett vilkor

Hej,

Jag är nybörjare på VB-script, men kom på att ett script skulle kunna lösa mitt problem.

Jag hämtar ut data varje vecka och kollar status på ordrar.
Från den datan gör jag uträkningar för att få fram en procentsats per status.

Nu är det så att jag skulle vilja visa ordernummer på vissa statusar för att kunna göra uppföljning enkelt och pressentera dessa bredvid min rapport.

Datan får jag ut på Blad2 och med lite olika formler pressenterar jag den på Blad1.

i kolumn A på blad2 får jag statusen (11, 12, 13, 21, 22 och 23) och i kolumn B får jag ordernummret.

Nu skulle jag vilja ha ett script som loopar igenom och kopiera alla ordernummer på "blad2" med status 12 och 13 till kolumn H på "blad1" med början från rad 2 (rad 1 innehåller en överskrift) och de ordrenummer med status 22 och 23 till kolumn I med start från rad 2 även där.

Eftersom jag gör detta varje vecka med olika ordernummer för varje gång så vill jag att scriptet först ska radera all data i kolumn H och I från rad 2 och ner till sista raden som inehåller data, för att sedan fylla på med nya ordernummer från veckans import.

Exempel på data på blad2 som ska kopieras till H och I på blad1:
I detta exempel ska B2 kopieras till I2, B3 till H2, B4 till H3 osv.
A B
1 | 11 | 001234
2 | 22 | 001245
3 | 13 | 001254
4 | 12 | 001199
5 | 23 | 001201
6 | 21 | 001232
7 | 21 | 001197
8 | 12 | 001222
9 | 23 | 001249
10| 13 | 001214

Tack på förhand!

Det ser ut som ett ganska lätt makro att bygga. Något som revolutionerade mina makron var upptäckten av activecell.offset(row, column).select eller activecell.offset(row, column).value, där row är hur många steg ner eller upp den ska stega/titta.

Börja bygga ett makro så kan jag hjälpa dig om du fastnar.