使用VBA将特定单元格内容复制到新工作表中

I am in need of some help. I am trying to copy contents of cells in one sheet into another sheet in the same project. Below I have VBA code that helps me copy cells to another sheet. My only problem is that each cell contains more content than I need them to.I am in need of some help. I am trying to copy