This copied the entire used range when I ran it, not quite but still good to know, Not sure if this is really a feasible question, I can do what I am asking using Input box method, to select a single row at a time for the length of the column of data, I have attached a small file with a possibly clearer outline as to what I am thinking: Here is a non-working code I have been trying to modify, maybe these will give a better insight as to an answer, Thanks for everyone's ideas and time.

Sub DontKnow() 
    LastRow = Sheets("ws1").Range("A65536").End(xlUp).Row
    lastCol = Sheets("ws1").Range("IV" & LastRow).End(xlToLeft).Column
Range(cells(LastRow, lastCol)).Copy
End Sub