VBA to filter and copy/paste lines in excell sheet

Sub blah()
zz = Split(ActiveSheet.Name, "-")
If UBound(zz) = 1 Then
  Team1 = Application.Trim(zz(0))
  Team2 = Application.Trim(Replace(zz(1), "$", "", , , vbTextCompare))

  AreaNo = 0
  For Each are In Columns("B:B").SpecialCells(xlCellTypeConstants, 2).Areas
    Set myrng = Nothing
    AreaNo = AreaNo + 1
    Select Case AreaNo
      Case 1
        For Each cll In are.Cells
          If Application.Trim(cll.Value) = Team1 Then
            If myrng Is Nothing Then Set myrng = cll Else Set myrng = Union(myrng, cll)
          End If
        Next cll
        If Not myrng Is Nothing Then
          myrng.EntireRow.Copy Cells(Rows.Count, 1).End(xlUp).Offset(3)
        End If
      Case 2
        For Each cll In are.Offset(, 1).Cells
          If Application.Trim(cll.Value) = Team2 Then
            If myrng Is Nothing Then Set myrng = cll Else Set myrng = Union(myrng, cll)
          End If
        Next cll
        If Not myrng Is Nothing Then
          myrng.EntireRow.Copy Cells(Rows.Count, 1).End(xlUp).Offset(2)
        End If

      Case 3
        For Each cll In are.Cells
          If Application.Trim(cll.Value) = Team1 Then
            If myrng Is Nothing Then Set myrng = cll Else Set myrng = Union(myrng, cll)
          End If
        Next cll
        If Not myrng Is Nothing Then
          myrng.EntireRow.Copy Cells(Rows.Count, 1).End(xlUp).Offset(2)
        End If
    End Select
  Next are
End If
End Sub