How to shift and delete columns of only the new data that was pasted from another workbook

Question

I\'ve copy and pasted tabular data from another workbook to directly below the data of my current workbook with this:

Public Sub Copy()

Dim wsCopy As Workshe