ShellSort.VBA

Sub SortingMain()
    Dim area As Range, nrOfValues As Long
    
    Set area = Range("A1").CurrentRegion
    nrOfValues = area.Cells.Count
    
    Call ShellSort(area, nrOfValues)

End Sub

Sub ShellSort(V As Range, nrOfValues&)
    Dim gap&, i&, k&, tmp&
    Dim noexchange As Boolean
    gap = nrOfValues
    Do While gap > 1
        gap = gap \ 2 'denominator = 2
        Do
            noexchange = True
            For i = 1 To nrOfValues - gap
                k = i + gap
                If V(k) < V(i) Then tmp = V(k): V(k) = V(i): V(i) = tmp: noexchange = False
            Next i
        Loop Until noexchange = True
    Loop
End Sub

Sub GenerateNumbersMain()
    Dim nrOfValues As Long, first As Long, last As Long
    Dim xy As Range, max As Long, pos As Long
    
    Set xy = Range("A1")
    first = Range("first").Value
    last = Range("last").Value
    nrOfValues = Range("nr_of_values").Value
    
    Call DeleteValues(xy)
    Call GenerateNumbers(xy, first, last, nrOfValues)

End Sub

Sub GenerateNumbers(xy As Range, first As Long, last As Long, howMany As Long)
    Dim i
    For i = 1 To howMany
        xy(i, 1) = Int(Rnd() * (last - first + 1) + first)
    Next i
End Sub

Sub DeleteValues(xy As Range)
    xy.CurrentRegion.ClearContents
End Sub