select an entire column except the merged cells

Hello everyone,
I've been working on a macro which delivers a daily report.
the report is made up of 4 sections (received orders, scheduled orders, pending orders and unusual orders)
each section is topped by a title which is a merge of all columns (A through I)
the problem I am having is that the first column displays case numbers (to be displayed in text or number formats) and the 7th and 8th columns are dates
When I try to have the VBA select the first column to format as a number, it will select all columns due to the merged cells
is there a way to format only non-merged cells of a columns

this is the section I currently use for formatting but it doesn't actually work, (everything ends up in a date format)

Sheets("Full Hp Report").Select
Columns("A:A").Select
Selection.NumberFormat = "0"
 Columns("G:H").Select
    Selection.NumberFormat = "m/d/yyyy"

Thanks

I have tried that but the entire sheet is then emailed out and the text wraps within the cell making the title rows huge (in 4 sections of 8 different emails)
Is there a solution for that?