Sorry to be so long getting back to you, I don't always see every post made if they fall oof the first page of the forum. If you don't see your last post on the first page, you are allowed to post a "Bump."

The reason none of the 60 viewers have answered you already might be because that code is very badly structured and you might want to refactor it. If so, we can help you do that.

In the meantime, this bit of code might do want you want, assuming I have correctly analyzed what your code is doing. 

'Insert this line at top of sub
    FooterAddress = "Xm:Yn"
    'Where, regarding the desired footer section on sheet 4:
    '   X is the column letter that "Order Location" is in
    '   n is the row number above above"Order Location"
    '   Y is the Column letter of the last column of the Comments section, and
    '   m is the row number below "Verified by"
Loop Until ws.Cells(sr, 1) = ""
    'insert the following after the line above
    With ThisWorkbook
        Sheet4.Range(FooterAddress).Copy Sheet1.Cells(dr + 1, 1)
    End With