Excel VBA: need alphabetical sorting algorithm for block of rows : my data is looking like this:

Name  #modules module_name  etc   ...
Machine1  3    module1      data
               module2      data
               module3      data
Machine2  1    module1      data
Machine3  2    module1      data
               module2      data
...
I want to sort this data alphabetically based on the first column (Machine names) but i want to keep the rows directly after it. So if #modules is 3, i want to keep those 3 rows together. Any help is appreciated! :)
              