Sub Not_Tested()
    Dim rg               As Range
    Dim rC               As Range
    Dim a                As Integer
    
    'Change the names of the worksheets to match
    'Change "Some Specific Value" to ???

    With Worksheets(1)
        Set rC = Intersect(.Columns("C"), .UsedRange)
    End With
    For Each rg In rC
        If rg.Value = "Some Specific Value" Then
            For a = 1 To 3
                rg.EntireRow.Copy Worksheets(2).Cells(1048576, 1).End(xlUp).Offset(1)
            Next a
        Else
            rg.EntireRow.Copy Worksheets(3).Cells(1048576, 1).End(xlUp).Offset(1)
        End If
    Next rg
End Sub