How to Dynamically remove unwanted Columns from a Table in Power Query

How to Remove Unwanted Columns Dynamically from a Table using Power Query

Scenario:
Suppose, we have a sample data table with unwanted columns as follows:

Now from this table, we want to remove the unwanted Columns like "Column-1", "Column_2", "null", "", "   ", "_" and "-".

We can achieve this Scenario, using the following Power Query:

let

    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("hco7CsAwDATRu6g2WKvIv7MY3/8aDpGrQLIwxRRvToFdLkmA7NkUev+7lR5WghXCarBKWAvWCOvBOmEj2PhnrsGgxOE4EGfH2adbGw==", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ProdId = _t, DateKey = _t, #"Column-1" = _t, Column_2 = _t, #"null" = _t, #"      " = _t, _ = _t, #"-" = _t]),

ColumnNames = Table.ColumnNames(Source),

RequiredCols = 

    List.Select(ColumnNames, each not Text.Contains(_ ,"Column") 

                and not List.Contains({"","_"," ","-","null"},Text.Trim(_))),

SelectCols = Table.SelectColumns(Source, RequiredCols)

in

    SelectCols

Result:

Thanks, TAMATAM