Use datafilterautofilter to filter each number with a loop and copy where
desired. Something like

Sub filterandcopy()
For i = 1 To 3
dlr = Sheets("sheet13").Cells(Rows.Count, "b").End(xlUp).Row + 1
slr = Cells(Rows.Count, "a").End(xlUp).Row
With Range("A1:d" & slr)
..AutoFilter Field:=1, Criteria1:=i
..Offset(1).Copy Sheets("sheet13").Cells(dlr, "b")
..AutoFilter
End With
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Shu of AZ" wrote in message
...
another stab at the question

this is the data on one sheet
I need to pull only the data with a 1 in the first cell and paste it to
another sheet
I will then pull only the data with a 2 in the first cell and paste it to
another sheet and so on. Thanks in advance

1 Thelifeoftheparty 1 5/1
1 Buck's Bounty 2 12/1
1 Jenny's First Gear 3 10/1
1 Shesourkindagal 4 2/1
1 Winningdancer 5 3/1
1 Beautiful Jen 6 6/1
1 Apache Annie 7 4/1
2 Smarty Matt 1 5/1
2 Holloman 2 2/1
2 Dane's Klinsman 3 15-1
2 Justa Groovin 4 15-1
2 Pendleton 5 3/1
2 Benton Paige 6 6/1
2 Pittsburgh 7 6/1
2 Clints Well 8 15-1
3 Mello Nello 1 7/2
3 Angular Momentum 1A 7/2
3 One Last Crime 2 3/1
3 Rasin a Delight 2B 3/1
3 Burning Heart 3 5/1