Hello rcicconetti,
...It's lengthy so I'll bold where the transfer takes place:
I cannot see where the transfer takes places with this Code you have pasted in Bold.
Range("C13:C60").Select
Range("C60").Activate
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Scheduling Assistant 1.0").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Scheduling Assistant 1.0").Sort.SortFields.Add Key:=Range("C60"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Scheduling Assistant 1.0").Sort
.SetRange Range("C13:C60")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Please could you attach a sample workbook.
Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.
Remember to desensitize the data.
Click on GO ADVANCED and use the paperclip icon to open the upload window.
View Pic
Also please try to compile the Sample Workbook with all the Macros in place as well.
I suspect it may have to do with this line of Code, further down your Module;
... Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Regards.
Bookmarks