How to paste from module to worksheet

[p45cal]

put something (anything, say, a header) in cell A35, then add this line before unload me:
[vba]Sheets("Dry").Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(, 4) = Array(Fines.Value, Over.Value, Dust.Value, Down.Value)
[/vba]