Hi all,

the following code select the column "share sale".
If anybody write "share sale" in another way (Share Sale, Share sale....) the code ignor the line.
The other problem is, that the code needs a long time to run. Is there any chance to accelerate the code?

Sub mature_share_sale()
Dim i As Long, y
With Sheets("Daten Erfassung")
    ReDim y(2 To 1000)
    For i = LBound(y) To UBound(y)
        If .Cells(i, "J") = "share sale" Then
            .Range(.Cells(i, "A"), .Cells(i, "N")).Copy Sheets("Sale").Range("A" & Rows.Count).End(3)(2)
        End If
    Next i
    .Range(.Cells(1, "j"), .Cells(1000, "j")).AutoFilter 1, "share sale"
    On Error Resume Next
    .Range(.Cells(2, "j"), .Cells(1000, "j")).SpecialCells(12).EntireRow.Delete
    On Error GoTo 0
    .AutoFilterMode = False
End With
End Sub
Kind regards

Thorsten