You only show part of the code but would this not do the same?

Sub Maybe()
    Range(Selection, Selection.End(xlDown)).Copy Sheets("ProductionTotals ").Range("C" & lr + 3)
End Sub
If not, could you be so kind and show your fixed code for people that are searching for a solution to the same or similar problem.