VBA Code to pick from range : I am trying to write a simple VBA code to  pick up a complete row from one sheet and copy to another sheet based o cetain If condition

For Ex: If the first value in the row is Cricket, system will create a worksheet in the name of cricket and whatever row has the first value as cricket, it will copy and paste the row in to that sheet

i have written below, however its not working as expected

     Sub officetest()

    Worksheets("Sheet1").Activate
    If Range("A1,A10000") = "Cricket" Then
    Sheets.Add
    Sheets(2).Name = "Cricket"
    Worksheets("Sheet1").Range("A1, A10000").Copy 
    Worksheets("Sheet2").Range("A1")
    End If

    End Sub
