Excel VBA从一个工作表复制到另一个工作表而不进行选择

I am trying to copy only selected ranges from one sheet to another based on the contents of a few cells. The code I developed works up to the point that I try to actually copy and paste the information. I have reviewed many sites with similar code, the difference is I'm trying to execute to a certain range. I am trying to copy only selected ranges from o