Speed Up This Macro

About all I can offer is instead of

Sheets("JobNumber").Select
ActiveSheet.DoSomething

At the beginning of the module use the following code:

Dim sh as WorkSheet

set sh = sheets("JobNumber")

Then you can replace all the select sheet / activesheet with sh.whatever

For example, instead of

ActiveWorkbook.Sheets("JobNumbers").Activate
Activesheet.Unprotect

You can use

sh.Unprotect

Likewise, look for opportunities to remove references to the activecell. sh.Cells(RowNumber, ColumnNumber) might help.

So instead of constantly moving the active cell down or over, use an index

For i = 1 to LastRow
    For j = 1 to LastCol
        sh.cells(i,j).DoSomething
    Next j
Next i

In general when you see
Something.Select followed by Selection.DoSomething, you can replace it with Something.DoSomething.

Don't depend on activesheet or activecell. Your concept of what's active and Excel's concept of what's active may be two different things. Although you seem to take pains to make sure to activate what you want.

I don't really know how much time it takes excel to activate or select something, but I think it works faster with direct references, and it may be easier to figure out where you are as well instead of doing all those offsets in your head.