Option Explicit

Sub delcontrol()
    Application.ScreenUpdating = False
    Dim c As Range, rng As Range
    Dim lr As Long, lr2 As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Set rng = Range("A2:A" & lr)
    For Each c In rng
        If InStr(c, "control") > 0 Then
            lr2 = Range("C" & Rows.Count).End(xlUp).Row + 1
            c.Copy Range("C" & lr2)
        End If
    Next c
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    MsgBox "Action Completed"

End Sub