the first program pulls numbers and sorts them into ascending order from a1:a5 to b1:b5 

Option Explicit

Sub ascend()                          

Dim inta As Integer
Dim intb As String
Dim intc As Integer
Dim intd As Integer
Dim inte As Integer

inta = ActiveSheet.Cells(1, 1)           
intb = ActiveSheet.Cells(2, 1)
intc = ActiveSheet.Cells(3, 1)
intd = ActiveSheet.Cells(4, 1)
inte = ActiveSheet.Cells(5, 1)


If inta < intb And intb < intc And intc < intd And intd < inte Then
ActiveSheet.Cells(1, 2) = inta
ActiveSheet.Cells(2, 2) = intb
ActiveSheet.Cells(3, 2) = intc
ActiveSheet.Cells(4, 2) = intd
ActiveSheet.Cells(5, 2) = inte

Else
If inta < intc And intc < intd And intd < inte And inte < intb Then
ActiveSheet.Cells(1, 2) = inta
ActiveSheet.Cells(2, 2) = intc
ActiveSheet.Cells(3, 2) = intd
ActiveSheet.Cells(4, 2) = inte
ActiveSheet.Cells(5, 2) = intb
Else
If inta < intd And intd < inte And inte < intb And intb < intc Then
ActiveSheet.Cells(1, 2) = inta
ActiveSheet.Cells(2, 2) = intd
ActiveSheet.Cells(3, 2) = inte
ActiveSheet.Cells(4, 2) = intb
ActiveSheet.Cells(5, 2) = intc
Else
If inta < inte And inte < intb And intb < intc And intc < intd Then
ActiveSheet.Cells(1, 2) = inta
ActiveSheet.Cells(2, 2) = inte
ActiveSheet.Cells(3, 2) = intb
ActiveSheet.Cells(4, 2) = intc
ActiveSheet.Cells(5, 2) = intd
Else
If intb < inta And inta < intc And intc < intd And intd < inte Then
ActiveSheet.Cells(1, 2) = intb
ActiveSheet.Cells(2, 2) = inta
ActiveSheet.Cells(3, 2) = intc
ActiveSheet.Cells(4, 2) = intd
ActiveSheet.Cells(5, 2) = inte
Else
If intb < intc And intc < intd And intd < inte And inte < inta Then
ActiveSheet.Cells(1, 2) = intb
ActiveSheet.Cells(2, 2) = intc
ActiveSheet.Cells(3, 2) = intd
ActiveSheet.Cells(4, 2) = inte
ActiveSheet.Cells(5, 2) = inta
Else
If intb < intd And intd < inte And inte < inta And inta < intc Then
ActiveSheet.Cells(1, 2) = intb
ActiveSheet.Cells(2, 2) = intd
ActiveSheet.Cells(3, 2) = inte
ActiveSheet.Cells(4, 2) = inta
ActiveSheet.Cells(5, 2) = intc
Else
If intb < inte And inte < inta And inta < intc And intc < intd Then
ActiveSheet.Cells(1, 2) = intb
ActiveSheet.Cells(2, 2) = inte
ActiveSheet.Cells(3, 2) = inta
ActiveSheet.Cells(4, 2) = intc
ActiveSheet.Cells(5, 2) = intd
Else
If intc < inta And inta < intb And intb < intd And intd < inte Then
ActiveSheet.Cells(1, 2) = intc
ActiveSheet.Cells(2, 2) = inta
ActiveSheet.Cells(3, 2) = intb
ActiveSheet.Cells(4, 2) = intd
ActiveSheet.Cells(5, 2) = inte

Else
If intc < intb And intb < intd And intd < inte And inte < inta Then
ActiveSheet.Cells(1, 2) = intc
ActiveSheet.Cells(2, 2) = intb
ActiveSheet.Cells(3, 2) = intd
ActiveSheet.Cells(4, 2) = inte
ActiveSheet.Cells(5, 2) = inta
Else
If intc < intd And intd < inte And inte < inta And inta < intb Then
ActiveSheet.Cells(1, 2) = intc
ActiveSheet.Cells(2, 2) = intd
ActiveSheet.Cells(3, 2) = inte
ActiveSheet.Cells(4, 2) = inta
ActiveSheet.Cells(5, 2) = intb
Else
If intc < inte And inte < inta And inta < intb And intb < intd Then
ActiveSheet.Cells(1, 2) = intc
ActiveSheet.Cells(2, 2) = inte
ActiveSheet.Cells(3, 2) = inta
ActiveSheet.Cells(4, 2) = intb
ActiveSheet.Cells(5, 2) = intd
Else
If intd < inte And inte < inta And inta < intb And intb < intd Then
ActiveSheet.Cells(1, 2) = intd
ActiveSheet.Cells(2, 2) = inte
ActiveSheet.Cells(3, 2) = inta
ActiveSheet.Cells(4, 2) = intb
ActiveSheet.Cells(5, 2) = intc
Else
If intd < inta And inta < intb And intb < intc And intc < inte Then
ActiveSheet.Cells(1, 2) = intd
ActiveSheet.Cells(2, 2) = inta
ActiveSheet.Cells(3, 2) = intb
ActiveSheet.Cells(4, 2) = intc
ActiveSheet.Cells(5, 2) = inte
Else
If intd < intb And intb < intc And intc < inte And inte < inta Then
ActiveSheet.Cells(1, 2) = intd
ActiveSheet.Cells(2, 2) = intb
ActiveSheet.Cells(3, 2) = intc
ActiveSheet.Cells(4, 2) = inte
ActiveSheet.Cells(5, 2) = inta
Else
If intd < intc And intc < inte And inte < inta And inta < intb Then
ActiveSheet.Cells(1, 2) = intd
ActiveSheet.Cells(2, 2) = intc
ActiveSheet.Cells(3, 2) = inte
ActiveSheet.Cells(4, 2) = inta
ActiveSheet.Cells(5, 2) = intb
Else
If inte < inta And inta < intb And intb < intc And intc < intd Then
ActiveSheet.Cells(1, 2) = inte
ActiveSheet.Cells(2, 2) = inta
ActiveSheet.Cells(3, 2) = intb
ActiveSheet.Cells(4, 2) = intc
ActiveSheet.Cells(5, 2) = intd
Else
If inte < intb And intb < intc And intc < intd And intd < inta Then
ActiveSheet.Cells(1, 2) = inte
ActiveSheet.Cells(2, 2) = intb
ActiveSheet.Cells(3, 2) = intc
ActiveSheet.Cells(4, 2) = intd
ActiveSheet.Cells(5, 2) = inta
Else
If inte < intc And intc < intd And intd < inta And inta < intb Then
ActiveSheet.Cells(1, 2) = inte
ActiveSheet.Cells(2, 2) = intc
ActiveSheet.Cells(3, 2) = intd
ActiveSheet.Cells(4, 2) = inta
ActiveSheet.Cells(5, 2) = intb
Else
If inte < intd And intd < inta And inta < intb And intb < intc Then
ActiveSheet.Cells(1, 2) = inte
ActiveSheet.Cells(2, 2) = intd
ActiveSheet.Cells(3, 2) = inta
ActiveSheet.Cells(4, 2) = intb
ActiveSheet.Cells(5, 2) = intc
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

End Sub

this second program pulls vowels out of A1 and places them into B1 

Sub Vowels()

Dim strword As String
Dim intcharcount As Integer
Dim Strchar As String
Dim strvowa As String
Dim intx As Integer
Dim strvowe As String
Dim strvowi As String
Dim strvowo As String
Dim strvowu As String
Dim strvows As String


strword = ActiveSheet.Cells(1, 1)
intcharcount = Len(strword)

For intx = 1 To intcharcount
Strchar = Mid(strword, intx, 1)

If Strchar = "a" Then
strvowa = Mid(strword, intx, 1)
Else
If Strchar = "e" Then
strvowe = Mid(strword, intx, 1)
Else
If Strchar = "i" Then
strvowi = Mid(strword, intx, 1)
Else
If Strchar = "o" Then
strvowo = Mid(strword, intx, 1)
Else
If Strchar = "u" Then
strvowu = Mid(strword, intx, 1)

End If
End If
End If
End If
End If
Next intx
strvows = strvowa + strvowe + strvowi + strvowo + strvowu

ActiveSheet.Cells(1, 2) = strvows



End Sub