Transfert de lignes d'une feuille vers une autre feuille

Bonjour, je n'ai aucune connaissance en VBA, j'ai réussie plus ou moins à comprendre un peu. Cependant, après plusieurs essais je bloque. J'aimerais une fois que les lignes sont copiés les insérer dans la feuille n°2. L'idée est de sélectionner la plage de recherche et à partir d'un mot ou le début du mot le transférer sur la feuille 2 avec possibilité de cumuler les différentes recherche à la suite.Voici mon code et une partie du tableur :

Sub DeleteRows()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)

For Each rng In InputRng

If rng Like "*" & DeleteStr & "*" Then

        adresse = adresse & rng.Row & ":" & rng.Row & ","

   End If
Next
adresse = Left(adresse, Len(adresse) - 1)

Range(adresse).Copy
End Sub

Je vous remercie par avance pour vos idées/réponses.