【VBA】特定の文字を含む行を開かずにコピーする方法

Option Explicit
Sub CopyRowsWithSpecificText()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long
    Dim targetSheetName As String
    Dim searchKeyword As String
    
    ' シートと検索キーワードの設定
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    targetSheetName = "TargetSheet"
    searchKeyword = "特定の文字"
    
    ' メイン処理開始前、画面更新停止
    Application.ScreenUpdating = False
    
    ' ターゲットシートが存在しない場合、新規作成
    On Error Resume Next
    Set wsTarget = ThisWorkbook.Sheets(targetSheetName)
    If wsTarget Is Nothing Then
        Set wsTarget = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        wsTarget.Name = targetSheetName
    End If
    On Error GoTo 0
    
    ' 最終行の取得
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' データコピー処理
    For i = 1 To lastRow
        If InStr(1, wsSource.Cells(i, 1), searchKeyword) > 0 Then
            wsSource.Rows(i).Copy Destination:=wsTarget.Range("A" & wsTarget.Rows.Count + 1)
        End If
    Next i
    
    ' メイン処理終了後、画面更新再開
    Application.ScreenUpdating = True
End Sub