Transferring data from master sheet to slave sheets

Aha, I see. Try this updated code:

Sub DistributeToSheets()

Dim ws As Worksheet: Set ws = Sheets("Complete data")
Dim c As Range
Dim rng As Range
Dim sh As Object
Dim lr As Integer

    Application.ScreenUpdating = False

    'CLEAR PREVIOUS DATA
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> "Complete data" Then
            lr = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
            sh.Range("2:" & lr + 1).ClearContents
        End If
    Next

    'DISTRIBUTE DATA
    Set rng = ws.Range(ws.Range("F2"), ws.Range("F2").End(xlDown))
    
    For Each c In rng
        c.EntireRow.Copy
        Sheets(c.Text).Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    Next
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

End Sub

BSB