Amend Macro To Select All But Last Column Of Data

Macro below - it now works and selects all the data in spreadsheet and converts to Proper Case

However I also need a macro to select all except the last column of data and convert all except the last column to Proper Case

It is for Post / Zip code info. so wish to keep it in Upper Case.

What I have already is:

Code:

Sub Propercase()
Dim LastRow As Long, LastColumn As Long
LastRow = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastColumn = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Dim r As Range, c As Range
Set r = Range("A1").Resize(LastRow, LastColumn)

[Code] .....

I was hoping I could easily amend the above to select all except last column.