Hjælp til VBA filtrering

Her kommer en grim og ikke særlig fleksibel løsning, men den burde være nem at forstå og dermed men at rette i.
Jeg ville have brugt et ark med et navngivet område til at gemme disse filterværdier i med det krævede jeg sendte hele regnearken og ikke kun koden.

Bemærk: I Excel 2000 findes et 'objekt' at typen filter. 

Sub t1()
Dim rng As Range
Dim rng2 As Range
Dim c As Range

Const filterMax As Integer = 2 ' Antal filterværdier
Dim filterFrom(1 To filterMax) As String ' Nedre grænseværdi for filter
Dim filterTo(1 To filterMax) As String  ' Øvre grænseværdi for filter
Dim i As Integer

Dim wkb As Workbook

filterFrom(1) = "3300"
filterTo(1) = "3300"
filterFrom(2) = "3400"
filterTo(2) = "3499"

Set rng = Range("A:A")
Set rng2 = Range("A1:K1")
For Each c In rng
  If c.Value = "" Then Exit For 'spinger ud af løkke ved tom celle
  For i = 1 To filterMax  ' i = LBound(filterFrom) To UBound(filterFrom)
    If Left(c, Len(filterFrom(i))) >= filterFrom(i) And _
      Left(c, Len(filterTo(i))) <= filterTo(i) Then
      Set rng2 = Union(Range(c, c.Offset(0, 10)), rng2)
    End If
  Next i
Next
Set wkb = Workbooks.Add
rng2.Copy (wkb.Sheets(1).Range("A1"))
wkb.Sheets(1).Columns.AutoFit

End Sub

Nå ham der skal bruge det, har ikke haft tid til at teste endnu, men derfor skal du ikke gå glip af points. Tak for hjælpen.