Gem automatisk som csv - manuelt indtaste range

Hey,

Jeg har fundet denne kode herinde til at gemme som csv.
http://www.eksperten.dk/spm/811176

Jeg kunne godt tænke mig at der kom en boks op og spurgte efter antal linjer da det varierer fra gang til gang.
Kan det lade sig gøre?

her er koden:

Sub OpretFil()
  Dim c As Object
  Dim lPath As String
  Dim lStr As String
  Dim lFNo As Integer
  Dim lRow As Long
  lPath = "C:\Temp\MinFil.csv" ' Navnet på filen der skal oprettes
  lFNo = FreeFile
  Open lPath For Output As #lFNo
  For Each c In Sheets("Sheet1").Range("A1:B10") ' Det ark og område der skal puttes i filen
    If lRow < c.Row And lStr <> "" Then
      Print #lFNo, lStr
      lStr = ""
    End If
    If lStr = "" Then
      lStr = c
    Else
      lStr = lStr & ";" & c
    End If
    lRow = c.Row
  Next c
  Print #lFNo, lStr ' For at få sidste række med i filen
  Close #lFNo
End Sub

- AER