I am just looking to copy them to the clipboard so I can paste in another program.

Set destn = Range("F32")
For Each are In Range("A32:A36,A39:A41,D32:D35,D38:D41").Areas
  are.Copy destn
  Set destn = destn.Offset(are.Rows.Count)
Next are
I believe this is the best option. However, I am worried about the problems this may cause if multiple people uses the worksheet. I believe people will be overwriting each other everytime.

Thank you for bringing up different options. I will probably have to do my worksheet differently.