insert copied cells

HI I have an annoying problem, its annoying because it work some times and sometimes doens't and I don't know why.

What I am trying to do is filter a sheet, select the filtered data, copy it, insert it into another worksheet.
I have a for loop that cycles through several worksheets inserting different filtered information from the main worksheet.
This works just fine except sometimes instead of inserting the copied cells excel just inserts a single blank cell. So some of the worksheets have data inserted into then and some have just a single cell inserted.

This is in Excel 2000

here is the code snippet:

    For OAIndex = 0 To 3
        OACaseSelect
        Range("a1").Select
        Selection.AutoFilter Field:=31, Criteria1:=OperationalArea
        Range("A1").Offset(1, 0).Range("A1:AD1").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets(OperationalArea).Range("A2").Insert Shift:=xlDown
        Range("a1").Select
        Sheets("All").Select
    Next OAIndex

and this is the select case block that is called in the loop:

Sub OACaseSelect()

Select Case OAIndex
    Case 0
        OperationalArea = "North"
    Case 1
        OperationalArea = "Central"
    Case 2
        OperationalArea = "South"
    Case 3
        OperationalArea = "HQ"
End Select

End Sub

Why does the insert sometimes insert the copied cells and sometimes just insert a new blank cell? and how can I fix this?
My suspicions are that its somthing to do with the way i'm selecting the filtered data to copy:

        Range("A1").Offset(1, 0).Range("A1:AD1").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy

is there a better way of selecting this data?

BTW: specifically the first two worksheets "North" and "Central" have just a blank cell inserted, and the other two sheets "South" and "HQ" have the copied data inserted properly. I have stepped through the code and the data is copied for the north and central sheets but it just doesn't get inserted.. Perhaps its not copying into the clipboard for some reason? Oh, and there is no difference between the north, central, south, and HQ worksheets. Thay are all copys of the main worksheet but with the name changed. Each of threse sheets has header data and footer sums which is why I need to insert the data between these rows.

Not sure about your data layout without seeing it but I would think a PivotTable would be better than VBA to do this. See if this copies the filtered range better. An attached workbook would help us solve this.

    Dim rFilter As Range
    For OAIndex = 0 To 3
        OACaseSelect
        Range("a1").AutoFilter Field:=31, Criteria1:=OperationalArea
        With ActiveSheet.AutoFilter.Range
            On Error Resume Next
            Set rFilter = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
                          .SpecialCells(xlCellTypeVisible)
            On Error GoTo 0
        End With
        rFilter.Copy Sheets(OperationalArea).Range("A2")
        Sheets("All").Select
    Next OAIndex

I would check out using a PivotTable.

You might be able to improve the time by removing any unnecessary selecting.