Finde værdi og indsætte 2 linjer over

Sub Makro1()

    For i = Range("A65536").End(xlUp).Row To 14 Step -1
        If Cells(i, 1) = 3 Then' finder tallet 3 i kolonne A
            Rows("11:12").Copy
            Cells(i, 1).Select
            Selection.Insert Shift:=xlDown
        End If
    Next
End Sub

Præcis jeg takker.. et svar hvis du vil have dine point

Sad lige og leget lidt videre men fandt så ud af min copy ramme ikke var helt så fast låst som jeg tænkte..

så nu har jeg prøvet af tilføje en find linjerne men det virkerde sq ikke helt.. kan du også redde den ?

Sub Makro1()

      For p = Range("A65536").End(xlUp).Row To 60
            If Cells(p, 1) = "Copyhere" Then
                Rows("p:p+1").Copy
            End If
    Next
        For i = Range("A65536").End(xlUp).Row To 60 Step -2
                If Cells(i, 1) = "NextQ" Then ' finder tallet 3 i kolonne A
            Cells(i, 1).Select
            Selection.Insert Shift:=xlDown
        End If
    Next
End Sub

Sub Makro1()

      For p = Range("A65536").End(xlUp).Row To 60
            If Cells(p, 1) = "Copyhere" Then
                Rows(p &":" & p+1).Copy
            End If
    Next
        For i = Range("A65536").End(xlUp).Row To 60 Step -2
                If Cells(i, 1) = "NextQ" Then ' finder tallet 3 i kolonne A
            Cells(i, 1).Select
            Selection.Insert Shift:=xlDown
        End If
    Next
End Sub

;-))

Sub Makro1()

      For p = Range("A65536").End(xlUp).Row To 60
            If Cells(p, 1) = "Copyhere" Then ' her finder den værdien "Copyhere"
                Rows(p &":" & p+1).Copy 'her skulle den så tage Row med copyhere og kopier den og den efterfølgende lige som tidligere med 13:14
            End If
    Next
        For i = Range("A65536").End(xlUp).Row To 60 Step -2
                If Cells(i, 1) = "NextQ" Then ' finder tallet 3 i kolonne A
            Cells(i, 1).Select
            Selection.Insert Shift:=xlDown
        End If
    Next
End Sub

Det eneste resultat jeg får ved dette er at den flytter min "NextQ" længere ned uden at gøre andet..

"Copyhere" skal ifølge koden være længere nede end række 60, læg mærke til at koden kører opad fra sidste række og til række 60, mon ikke 60 skal rettes til et lavere rækkenummer, 10 måske.


Sub Makro1()
    Dim RW As Range
    For p = Range("A65536").End(xlUp).Row To 60 Step -1
        If Cells(p, 1) = "Copyhere" Then    ' her finder den værdien "Copyhere"
            Set RW = Rows(p & ":" & p + 1)
            Exit For
        End If
    Next

    For i = Range("A65536").End(xlUp).Row To 60 Step -2
        If Cells(i, 1) = "NextQ" Then    ' finder tallet 3 i kolonne A
            RW.Copy
            Cells(i, 1).Select
            Selection.Insert Shift:=xlDown
        End If
    Next
    Set RW = Nothing
End Sub

så lige at
  For i = Range("A65536").End(xlUp).Row To 60 Step -2

skal være

  For i = Range("A65536").End(xlUp).Row To 60 Step -1

ahh.. hvor smart.. jeg tænkte at den talte den anden vej :).. så op til linje nr :)..