defining an array and deleting values

Hello. I may be way off track here but would like some help. I'm not sure how to make the array part of what I'm trying to delete.

Sub Head_Clean1()
Dim h As Range
Dim var As Variant
var = Array("_Properties", "subassembly", "_DCSVariable", "_HistVariable", "_EHASVariable", "_ManualVariable", "_TemplateVariable", _
"_DCS", "_Hist", "_EHAS", "_Manual", "_AES", "_OtherParameter", "_AlarmRelatedParameter", "_Constraint")

  For Each h In ActiveSheet.Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
  If h.Value Like "'_*" And h.Offset(0, 2).Value = var Then h.EntireRow.delete

Next h

End Sub