Thank you guys for your input.
Writing the macro is not a problem and it can do it. However, that will require all users to do that or have the macro distributed in some manner. The ideal solution would not require any user action.
The way I see it though the instances are always Value and Color the top cell above them is merged. So deleting the column only does that while the file is open. When it is saved and reopened both are gone. To avoid that the top cells have to be unmerged first.
The second challenge is that when I select a column it it selected by the ID even if I use search to get there. So the macro only works for predefined locations of the columns. That is not problem if the export is always done from the same portlet.
ActiveWindow.ScrollColumn = 8 Range("K1:T1").Select Selection.UnMerge Range("K1:T2").Select Selection.Cut Destination:=Range("L1:U2") Columns("K:K").Select Selection.EntireColumn.Hidden = True Columns("M:M").Select Selection.EntireColumn.Hidden = True
"fixing" the xml might be possible after some thinking
<Cell ss:StyleID="headerCenterWrap" ss:MergeAcross="1">
<Data ss:Type="String">Budget RAG</Data>
</Cell>
</Row>
<Row>
<Cell ss:StyleID="subHeader"/>
<Cell ss:StyleID="subHeader"/>
<Cell ss:StyleID="subHeader"/>
<Cell ss:StyleID="subHeader"/>
<Cell ss:StyleID="subHeader"/>
<Cell ss:StyleID="subHeader"/>
<Cell ss:StyleID="subHeader"/>
<Cell ss:StyleID="subHeader"/>
<Cell ss:StyleID="subHeader"/>
<Cell ss:StyleID="subHeader"/>
<Cell ss:StyleID="subHeader">
<Data ss:Type="String">Value</Data>
</Cell>
<Cell ss:StyleID="subHeader">
<Data ss:Type="String">Color</Data>
</Cell>
<Cell ss:StyleID="subHeader">
<Data ss:Type="String">Value</Data>
</Cell>
<Cell ss:StyleID="subHeader">
<Data ss:Type="String">Color</Data>
</Cell>
<Cell ss:StyleID="subHeader">
<Data ss:Type="String">Value</Data>
</Cell>
<Cell ss:StyleID="subHeader">
<Data ss:Type="String">Color</Data>
</Cell>
<Cell ss:StyleID="subHeader">
<Data ss:Type="String">Value</Data>
</Cell>
<Cell ss:StyleID="subHeader">
<Data ss:Type="String">Color</Data>
</Cell>
<Cell ss:StyleID="subHeader">
<Data ss:Type="String">Value</Data>
</Cell>
<Cell ss:StyleID="subHeader">
<Data ss:Type="String">Color</Data>
</Cell>
</Row>
<Row>
<Cell ss:StyleID="string">
<Data ss:Type="String">PRJ00455</Data>
</Cell>
<Cell ss:StyleID="url"