sub M_snb()
for j =1 to sheets("reportd").usedrange.rows.count\62
sheets("reportd").usedrange.find("CAFETO-20",sheets("reportd").cells(62*(j-1)+1,1),xlvalues,xlpart).offset(-3).resize(62,11).copy sheets("CAFETO-20").cells(rows.count,1).end(xlup).offset(2)
next
End Sub
or
Sub M_snb()
With Sheets("reportd").UsedRange
.AutoFilter 1, "*CAFETO-20*"
c00 = .Columns(1).SpecialCells(12).Address
.AutoFilter
For Each cl In Range(c00)
If cl.Row > 1 Then cl.Offset(-3).Resize(62, 11).Copy Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(2)
Next
End With
End Sub