Creating a macro to split data into separate workbooks

As we are not on a mind readers forum, you just must add the codeline to save each workbook 'to a specific path on the desktop'
- as you can easily use the Macro Recorder or just reading the VBA help -
so paste this beginner starter demonstration to the DATA worksheet module :

PHP Code: 

Sub Demo1()
    Const C = 6
      Dim Rf As Range, Rg As Range
      Application.ScreenUpdating = False
With [A1].CurrentRegion.Rows
     .Sort .Cells(C), xlAscending, Header:=xlYes
      Set Rf = .Cells(2, C)
    While Rf.Row <= .Count
      Set Rg = .Columns(C).Find(Rf.Value2, , xlValues, xlWhole, , xlPrevious)
      Workbooks.Add
     .Item(1).Copy ActiveSheet.[A1]
     .Item(Rf.Row & ":" & Rg.Row).Copy ActiveSheet.[A2]
            
      Set Rf = Rg(2)
    Wend
End With
      Set Rf = Nothing:   Set Rg = Nothing
      Application.ScreenUpdating = True
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

Thanks for the help!