Option Explicit
Sub EliminaRigheConArray()
    Dim mioArr As Variant
    Dim y      As Long
    Application.ScreenUpdating = False
    mioArr = Array("", "Dal dip", "X   Dat", "4432  A", "VIA PRI", "20154", "339075")
    With ActiveSheet
        For y = LBound(mioArr) To UBound(mioArr)
            .AutoFilterMode = False
            With Range("A28", Range("A" & Rows.Count).End(xlUp))
                .AutoFilter 1, mioArr(y)
                On Error Resume Next
                If mioArr(y) = "" Then
                    .Offset(1).SpecialCells(4).EntireRow.Delete 'xlCellTypeBlanks
                Else
                    .Offset(1).SpecialCells(12).EntireRow.Delete 'xlCellTypeVisible
                End If
            End With
        Next y
        .AutoFilterMode = False
    End With
    Application.ScreenUpdating = True
    MsgBox "Done!"
End Sub