Macro To Format Numbers And Justify Format

I have tried to write code to format numbers to zero decimal places as well as to justify the format as the zeroes appears as 00000000 when imported.

I need the macro to do this on the first 7 sheets.

I also need ------- lines and ) to be cleared on the first 7 sheets.

I have attached sample data and my code below

Code:
Sub Format_Data()
Dim Cnt As Long, i As Long
Cnt = Sheets.Count
Application.DisplayAlerts = False
For i = Cnt To 7
Range("F:H").Select
With Sheets(i)

[code]....