Modify copy & paste code with sorting from A-Z

Hello,

I have a code to copy and paste value to other cells, If you could help me figure out when it pasted values to other cells. I want it to paste with sorted values from A-Z. Below is my code and appreciate if you can help.

Sub Copy_Family()

Sheets("Summary").Activate
  Range("F3:F25").ClearContents
  Dim col As Collection
    Set col = New Collection
    Dim rB As Range, rO As Range
    Set rB = Range(Range("B32"), Range("B32").End(xlDown))
    Set rO = Range("F3")
    For Each r In rB
        On Error Resume Next
        col.Add r.Value, CStr(r.Value)
        If Err.Number = 0 Then
            rO.Value = r.Value
            Set rO = rO.Offset(1, 0)
        End If
    Next r

End Sub