Jag har ett problem med att:

Först kollar jag vilken rad som är sista raden i kolumn B i ett dokument värdet lagras i en variabel som heter SistaRadB och vi antar att den fått värdet 11

Nu skall jag klistra in två kopierade celler (A2 & A3) från A4 ned till då rad11  alltså cell A11, problemet är det att om jag klistar in två celler funkar det fint om variabeln SistaRadB har fått ett jämt värde, så fort den får ett udda värde kan man inte klistra in två celler eftersom två såklart är ett jämt värde.

Hur kollar jag om SistaRad har fått ett udda eller jämt värde och sedan plussar jag på eller drar bort 1 från ursprungsvärdet för SistaRadB... vet inte om jag själv fattar det där men tar med lite kod så kanske det klarnar vad jag vill åt...   

Dim SistaRadB As Long
    Columns("B:B").Select
    SistaRadB = Selection.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
   
Range("A2:A3").Select
Selection.Copy

'här börjar mina ????? koden nedan är i princip hur fel som helst men jag vet inte hur jag skall börja då jag inte vet hur man får reda på Even Odd skrev bara nedanstående för att den som vill hjälpa mig skall i alla fall fatta vad jag vill göra.....
    
OM (SistaRadB = Even = 1)
Rows(SistaRadB +0).Columns("A:A").Select
OM (SistaRadB = Odd = 1)
Rows(B_EvenOdd +1).Columns("A:A").Select
Selection.paste (här skall alltså texten som kopierats från Cell A2 & A3 klistras in hela vägen Från A4 ner till i exempelfallet A11=lika med värdet på SistaRadB)