Kopier række og sæt ind under række med bestemt værdi

Hvor står dine originale linje - måske det blot er mig der ikke forstår, men det lyder som om at række to forsvinder, og hvilken række skal så tages?
Hvis det hele kører fra samme ark så kan du jo risikere at din række to bliver sat in som række tre, og derfor bliver til række to når den gamle forsvinder.

Hej Kim1a
Du har misforstået det.
De rækker jeg skal sætte ind er fra linje 6 og ned efter. Så række 2 vil hele tiden være den samme.

Okay, så linjerne står fra række 6 til række 26?

Du vil flytte række 6 op til række 2, hvis der står en bestemt værdi? Hvor skal den hen hvis ikke værdien optræder? Er der kun 5 værdier (række 1-5)?

Hej Kim1a
Nej jeg har ca. 1.000 rækker.
Jeg ønsker at flytte værdien i række 2 til rækken under, hvor en bestemt værdi optræder.
Den samme værdi, f.eks. 5010 optræder 20 gange. Så alle de steder hvor værdien 5009 optræder skal der sættes en linje ind under den og værdien i række 2 skal sættes ind i den nye linje.

Ah, så vi skal "bare" finde de steder hvor 5010 står, indsætte en ny linje og kopiere række 2 ned til denne nye linje.

Det kan vi klare ja. Jeg forestiller mig følgende:

Opsnap variabel der skal søges efter fra A1

Start ved B3 og kig hver værdi i B igennem en efter en, hvis den findes så indsæt en linje med dataen fra række 2.
Gå videre til næste B

Giver det mening?

Noget a la (ej testet):

Sub kopier()

Dim strA1Value As String
Dim intLastRow As Integer

intLastRow = ActiveSheet.Cells(2, 1).SpecialCells(xlCellTypeLastCell).Row
strA1Value = Range("A1").Value

For x = 3 To intLastRow
    If Range(2, x).Value = strA!Value Then
    Range("2:2").Copy
    Range(x + 1).Insert
    intLastRow = intLastRow + 1
    End If

Next

End Sub

Jeg var lidt i tvivl om det altid ville være tal i A1, så jeg lod variablen være en tekststreng. Derudover håber jeg at jeg løste hvor langt den skal køre ned, det bør du overveje, fordi du hver gang du indsætter en linje jo laver hele datasættet en linje længere end oprindelig.

Mange tak, men den går desværre i stå ved denne linje
If Range(2, x).Value = strA1Value Then
og jeg kan ikke gennemskue hvad der er galt.

strA1!Value prøv at ændre til strA1.Value

#7 Nej strengens variabel er her navngivet "strA1Value", ikke noget punktum (og forvirring om udråbstegn).

Det må være fordi vi sætter en værdi (value) = en string tænker jeg? Er det altid tal i din A1 celle? Er det heltal så vi kan lave det om til en integer? Måske er dine værdier i B forskellige fra A1, selvom det er tal?

Prøv i en kopi:

Hej Kim1a
Det virker desværre ikke. Det er samme talformat i A1 og kolonne B, det er hel tal.

Mange tak store-morten, det virker perfekt, dog vil jeg gerne have at den indsætter den formel der er i linje 2 og ikke indsætter det som værdi (tekst) er det muligt?

Ups.... lille fejl.
        Next i <-- rettes til: Next Rk
End Sub

Prøv:

TUSIND TAK store-morten, det var præcist hvad jeg ønsker mig. Nu kan det kun blive en god jul.
Rigtig glædelig jul og godt nytår