Sort Data in Multiple Columns As Single Data Set
 

I'd appreciate any help that you guys could give. I have some rather large
data sets consisting of a column of sample names followed by a numerical
value in the next column. For example:

Col A Col B
Sample1 1
Sample 2 3
Sample 3 2

I would like to sort these by the numerical part of the sample name. I was
planning on adding a new column (column C) containing the numerical part of
the sample name by which to sort using:

Dim i As Long, str As String
str = Selection
str = Mid(str, 7, Len(str) - 6)
i = CLng(str)
cells(*row*,3)=i

However, I have much more than 65536 samples so the data is continued in
multiple columns.

Col A Col B Col C Col D
Col E
Sample1 1 (blank) Sample65537 4
Sample 2 3 Sample 65538 1
Sample 3 2 Sample 65539 3

Any thoughts on how I can handle this?