Why so slow and periodic "not responding" in Excel 2016?

Greg Bonaparte A macro works more efficient without all the selecting and activating. Also, transferring values directly, rather than through a copy and paste is faster.

I have tried my best to convert all cell addresses properly, but this does need a thorough check against your own macro:

Sub GreaterThan4k()
'
' GreaterThan4k Macro
'
    Application.ScreenUpdating = False
    Application.EnableEvents = False

    Range("S2").Value = Range("R2").Value

    Range("R2,T2:T27,U2:U11,V2:W5,U30:U629").ClearContents

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range( _
                                                                  "R30:R629"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
                                                             xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("B30:AX629")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    '
    
    Range("R2").Value = Range("S2").Value
    Range("T2").Value = Range("R2").Value
    Range("T3").Value = Range("Q10").Value
    Range("T4:T11").Value = Range("AT30:AT37").Value
    Range("U2").Value = Range("Q19").Value
    Range("U3").Value = Range("P10").Value
    Range("R2").Value = Range("U2").Value
    Range("U4:U5").Value = Range("AS30:AS31").Value
    Range("V2").Value = Range("P19").Value
    Range("V3").Value = Range("P10").Value
    Range("R2").Value = Range("V2").Value
    Range("V4:V5").Value = Range("AS30:AS31").Value
    Range("R2").Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    MsgBox "There may be SUGGESTED SHARES to utilize unallocated funds. Add ADDITIONAL SHARES now."
End Sub