Macro copier cellules d'une colonne en fonction d'un critere

Bonjour,

Je fais appel à vos connaissances VBA car je suis bloqué sur un encodage VBA.
En effet, je cherche à en créer une macro qui me permettrait de copier-copier certaines cellules d'une colonne dans une nouvelle feuille, et ce, en fonction d'un critère prédéfini.





Conformément à l'image ci-dessus, le critère est renseigné en cellule O1 et correspond à un "program N#" en (C6:G6)
Le program 3 correspondant à la colonne E, je cherche à copier uniquement les cellules possédant des "materials" (en rouge) et leurs informations (dénomination, nomenclature, part number, status).
Ces informations seront a coller dans la feuille "Results".

A aujourd'hui la macro me permet de récupérer les informations (dénomination, nomenclature, part number, status) mais ne me permet pas de copier uniquement les cellules du programme (ex : cellules en rouge colonne E pour le program #3):

Sub testinternet()

Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

Sheets("Results").Activate ' feuille de destination

Col = "E" ' colonne données non vides à tester'
NumLig = 14 'le N° de la 1ere ligne de données '
With Sheets("PUR 01") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).row
For Lig = 14 To NbrLig 'n° de la 1ere ligne de données copiee'
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("Results").Cells(NumLig, 1).Insert Shift:=xlDown

End If
Next
End With
End Sub

J'ai essayé d'être le plus clair possible...
Merci de votre aide!