Option Explicit
Sub testCopy()
    Dim lCount As Long
    Dim rFoundCell As Range, tmpRng As Range, firstAddress As String
    Dim xlSh As Worksheet
    Set xlSh = Sheets("SD")
    With xlSh.Columns( 2 )
        Set rFoundCell = .Find("drilling", LookIn:=xlValues)
        If Not rFoundCell Is Nothing Then
            firstAddress = rFoundCell.Address
            Set tmpRng = rFoundCell
            Set rFoundCell = .FindNext(rFoundCell)
            Do While Not rFoundCell Is Nothing And rFoundCell.Address <> firstAddress
                Set tmpRng = Union(tmpRng, rFoundCell)
                Set rFoundCell = .FindNext(rFoundCell)
            Loop
            tmpRng.EntireRow.Copy
            Windows("Книга2").Activate 'Windows("Book1").Activate
'            Columns("'lcount'").Select
            ActiveSheet.Paste
'            Windows("SD").Activate
        End If
    End With
End Sub