Select columns of selected cells in VBA

I’m trying to select and delete a number of columns in Excel depending if they have certain values in the first row.