Need help coping and pasting 5 ranges to 5 different sheet ranges all at the last row

Question

I have a working code that lets me copy a given range from my activeworksheet to macro opened workbook(Sheet 1). I need to be able to copy this data into the last row of th