Copy entire row into column

[justkodian]

I have a spreadsheet with items similar to below:

#	item code	item description	item size	notes	cost
	001	Tool Box Prepack	1UN		47.75
CONTAINS:	0001	Screwdriver	1UN		2.79
	002	Ladder	1UN		87.79

<tbody>
</tbody>

I am trying to create a macro that will search for the word "Prepack" in column C and when it finds it to cut the entire row(s) below it that have "CONTAINS:" in column A..the trickier part is they need to be pasted next to end of the row with "Prepack"

so it would look like this after:

#	item code	item description	item size	notes	cost
	001	Tool Box Prepack	1UN			CONTAINS:	0001	Screwdriver	1UN		2.79
	002	Ladder	1UN		87.79

<tbody>
</tbody>

****** id="cke_pastebin" style="position: absolute; top: 197px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">

item code	item description	item size	notes	cost
	001	Tool Box Prepack	1UN		47.75

<tbody>
</tbody>

</body>And if there are multiple rows below the prepack with CONTAINS: all of the rows get cut and pasted beside

Thanks for the help.

 

[DanteAmor]

Try this

Sub Copy_entire_row()
    Dim i As Long
    For i = Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1
        If LCase(Cells(i, "C").Value) Like "*" & LCase("Prepack") & "*" Then
            Range(Cells(i + 1, "A"), Cells(i + 1, "F")).Copy Cells(i, "G")
            Rows(i + 1).Delete
        End If
    Next
End Sub