Kopier celler

Som en videre udvikling af http://www.eksperten.dk/spm/866020 er jeg nu stødt på et nyt problem..

Problemmet ligger i at jeg ønsker RW til at være udvalgt celler 2 rækker 6 koloner som ligger i nærheden af CHO feltet..

Min kode til start ser sådan her ud.
--------------------------------------------------------------
Sub Button48_Click()

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

    For i = Range("A65536").End(xlUp).Row To 5 Step -1
        If Cells(i, 1) = "NXO" 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
---------------------------------------------------------------

Kom glad