Søger efter :-)

Sub CopyCellValue()
    Dim A As Long, B As Long
    Dim i As Long
    A = 0
    B = 0
    For i = 6 To 22 'løb gennem rækkerne E6 til E22
        If Sheets("Ark1").Cells(i, "E").Value Like "*/*" Then 'hvis cellen indeholder "*/"
            A = A + 1 'øg tælleren for antal celler med "*/"
            If Sheets("Ark1").Cells(i, "E").Value Like "Kopi ->*" Then 'hvis cellen indeholder "Kopi ->"
                B = B + 1 'øg tælleren for antal celler med "Kopi ->"
                Sheets("Ark1").Range("F" & B + 8).Value = Sheets("Ark1").Range("F" & A + 5).Value 'kopier cellen fra F6 til F9 og derefter nedad i F10, F11, osv.
            End If
        End If
    Next i
End Sub