aanpassing VB script

[moensk]

Ik heb een vb script die kolommen kopiert naar een nieuwe excel.
ik heb de selectie nu uitgebreid met kolom "G".
hieronder een gedeelte uit script wat een aanpassing vergt en tevens ook foto als hulp.

probleem / vraag : de waardes uit kolom G dienen in het gekopieerde bestand in kolom "X" te komen staan.
ter info "R_BL_ANDERE" = A4

Sub BewaarCSVLostijden_toevoegen()

Dim mRange, r2Save As Range
    Dim lastRow, lastTblRow, firstRow, i
    Dim csvBk As Workbook
    Dim csvName
    Dim listSep
    Dim csvPath
    Dim rijGevonden
      
    If isTabelLeeg("Lostijden_toevoegen") = True Then
            MsgBox "Niks te exporteren", vbExclamation
            Exit Sub
    End If
    
    firstRow = [R_BL_ANDERE].Row
    lastTblRow = Range("Lostijden_toevoegen[soort]").Find(What:="*", Lookat:=xlPart, LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
    Set mRange = [R_BL_ANDERE].Resize(lastTblRow - firstRow + 1, 7)
'    mRange.Select
    Set r2Save = mRange.Rows(1)

   rijGevonden = False
    With mRange
        For i = 2 To .Rows.Count
            If Len(.Cells(i, 3)) > 0 Then
                Set r2Save = Union(r2Save, .Rows(i))
                rijGevonden = True
            End If
        Next i
    End With
'    r2Save.Select
    
    If rijGevonden = False Then
            MsgBox "Niks te exporteren", vbExclamation
            Exit Sub
    End If

    'r2Save.Select
    csvPath = [R_CSVFolder]
    
    Set csvBk = Workbooks.Add
    With csvBk.Sheets(1)
        r2Save.Copy
        .Cells(1).PasteSpecial xlPasteValuesAndNumberFormats
        .Columns.AutoFit
    End With

    If Right(csvPath, 1) <> "\" Then csvPath = csvPath & "\"
    csvName = Replace(ThisWorkbook.Name, "xlsm", "csv")
    csvBk.SaveAs csvPath & "Andere_" & csvName, FileFormat:=xlCSV, local:=True
    csvBk.Close
End Sub