VBA loop that finds a text string, delete a range and setup a clean dataset

[MRDecarte]

Hello everyone,

I am not familiar with VBA but I look for a code that can help me to set up a report.
Basically, the code should find the word "Conf" and delete the range including the row containing the text string and 6 rows below etc..in a loop

Range("A2").Select
Cells.Find(What:="conf", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Rows("59:65").Select
Selection.Delete Shift:=xlUp

Then because I copy the data from a pdf I have some numbers or text in column A that should be cut and pasted in the last column of the above line. Likewise some numbers or text different from 2018 in Column A & B that should be cut and pasted in the last column above the line. So every time the expression i a line is different from "2018" than the number and text string should be pasted in the last column above.

A

B

<tbody>
</tbody>

2018	1	90712
2018	1	90712

<colgroup><col width="64" span="3" style="width:48pt"> </colgroup><tbody>
</tbody>

10006723 15392.64 <tbody> </tbody>

<tbody>
</tbody>

I hope it is clear enough and thank you for the help much appreciated,

best regards
MRDecarte