Esportazione in batch di Excel di colonne da un foglio di lavoro

Sono un nuovo utente di VBA e sto cercando di creare una macro per eseguire un'esportazione batch di colonne selezionate in un CSV e quindi incrementare e ripetere la selezione per continuare ad esportare CSV fino alla fine del set di dati.

Ho un grande foglio di lavoro Excel con 1872 colonne. Voglio selezionare ed esportare le colonne 1-6 come CSV e quindi ripetere questo processo per le colonne 7-12, 13-18 ecc fino alla fine dell'intero foglio di lavoro.

Tutti i dati sono in un foglio di lavoro, non ci sono valori nulli in nessuna delle righe o colonne.

Quindi, in totale, vorrei finire con 312 file CSV.

Ho iniziato con la registrazione di una macro come segue, ma non sono sicuro di come incrementare questo e eseguire il ciclo del codice fino alla fine del set di dati.

Grazie mille per qualsiasi input o aiuto con questa domanda.

    Sub Macro2()
'
' Macro2 Macro
'

'
    Columns("A:F").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\Users\Glen\AppData\Roaming\Microsoft\Templates"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Glen\AppData\Roaming\Microsoft\Templates\EMN_001.csv", FileFormat:= _
        xlCSV, CreateBackup:=False
End Sub

Ecco un po 'di codice per il primo file .csv :

Sub dural()
   Dim K As Long, N As Long, i As Long
   K = 1
   N = Cells(Rows.Count, K).End(xlUp).Row
   Close #1
   Open "C:\TestFolder\whatever.csv" For Output As #1
      For i = 1 To N
         st = Cells(i, K).Text
         For j = K + 1 To K + 5
            st = st & "," & Cells(i, j).Text
         Next
         Print #1, st
      Next i
   Close #1
End Sub

Dovrai modificarlo per eseguire il loop over kper ottenere il resto dei file.