I'm having some trouble with this code. I don't know what the trouble could be. When I tried it out with a smaller sheet (200) rows it worked just fine, but now the loop portion no longer does what I designed it to do.

I basically need to put together separate spreadsheets for each of the city names (Griffin being one of them). I have A LOT of data to sift through. I need the program to copy and paste all info pertinent to the city name ("Sheet1") to a new spreadsheet ("Sheet2").

Could someone give some direction on this. I thought this would be a pretty simple code to write, didn't try to do anything fancy, but it seems like it's giving me fits.

Any help would be much obliged.

-Tyler.


Sub create_griff_tel_report()
Dim i As Integer
Application.ScreenUpdating = False
Sheets("TELEMETRY").Select
Range("A5:O21283").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste
For i = 1 To 21283
    Sheets("Sheet1").Select
    If Cells(i, 1).Value = "Griffin #4" Then
        Cells(i, 1).Select
        Selection.Copy
        Sheets("Sheet2").Select
        Cells(i, 1).Select
        ActiveSheet.Paste
        Sheets("Sheet1").Select
        Cells(i, 2).Select
        Selection.Copy
        Sheets("Sheet2").Select
        Cells(i, 2).Select
        ActiveSheet.Paste
    End If
Next i
Application.ScreenUpdating = True
End Sub