Excel gem fil opdelt i segmenter

Sub Gem_CSV()
    Dim Data As Variant, X As Integer, I As Long, Navn As String
    rk = Range("A65536").End(xlUp).Row
    X = 0
    For I = 1 To rk Step 5000
        X = X + 1
        Navn = "c:\Test\fil" & X & ".csv" ' Rettes til hvor der gemmes
        Data = Range(Cells(I, 1), Cells(I + 4999, 12)) ' tilrettes her kolonne A til L
        Open Navn For Output As #1
        For z = 1 To UBound(Data, 1)
            For y = 1 To UBound(Data, 2)
                Print #1, Data(z, y) & ";";
            Next
            Print #1,
        Next
        Close
    Next
End Sub

Denne finder selv størrelsen, rækker og kolonner

Sub Gem_CSV()
    Dim Data As Variant, X As Integer, I As Long, Navn As String, Rk As Long, Col As Integer
    Dim Z As Integer, Y As Integer
    Rk = Range("A65536").End(xlUp).Row
    Col = Range("A1").SpecialCells(xlLastCell).Column
    X = 0
    For I = 1 To Rk Step 5000
        X = X + 1
        Navn = "c:\Test\fil" & X & ".csv" ' Rettes til hvor der gemmes
        Data = Range(Cells(I, 1), Cells(I + 4999, Col))
        Open Navn For Output As #1
        For Z = 1 To UBound(Data, 1)
            For Y = 1 To UBound(Data, 2)
                Print #1, Data(Z, Y) & ";";
            Next
            Print #1,
        Next
        Close
    Next
End Sub