Hi Joel,
Thanks again for the help, I feel we are close, but am getting a type
mismatch error after this line:

Set SortRange = Rows("3:" & LastRow)

Whats strange is that when going back to the worksheet, the first cell
has been created, but its not been copied. The part of the code where
its failing is the sorting part, so I would have expected the copy to
have happened already.

Steve