Format Last Used Cell In Column

This portion of my code should format my worksheets, add a total in column D and then format that total. It runs just fine through creating the total, but when I try to format it, something goes wrong.

Dim wsheet As Worksheet
Dim Last_Row As Long
For Each wsheet In Sheets
If wsheet. Name <> "Sub Query" And wsheet.Name <> "LDSUBREC (Voucher Query)" And wsheet.Name <> "Formatting - Deltek" Then
Sheets("Formatting - Deltek").Rows("1:5").Copy
wsheet.Rows(1).Insert
wsheet.Columns("A:G").ColumnWidth = 17
wsheet.Columns("H:K").ColumnWidth = 10
wsheet.Columns("L:N").ColumnWidth = 7
wsheet.Columns("O:O").ColumnWidth = 13.....................