Hi Team,

I use the below code to create a csv file from the excel data which user enters. Now my issues is i need to check in that excel sheet(see attached) if column P has some value in a row the corresponding column A value need to be copied to the csv getting created by this code.Likewise i need to check all the rows of P and copy the corresponding A values to csv file. But what is happening is it is copying the last checked value frm excel to this csv instead of appending the data. Data is completely replaced. Atttached are both my csv and excel files. Please advise


Book1.xlsxThird.TXT


Code:
       strThirdCSVName = "Third"
    strThirdTable = "RATE_GEO_COST_GROUP"
    
    ThirdTable_Col1 = "RATE_GEO_GID"         ' Naming the columns of the RATE_GEO_COST_GROUP CSV
    ThirdTable_Col2 = "RATE_GEO_COST_GROUP_GID"

    
     strCSV_3_Columns = "B" ' Let Say Columns D,F,H and Columns J to L
    
    
    
    wbkNew.Sheets(1).Cells.Clear
        strRange = MakeRange(strCSV_3_Columns)
        .Range(strRange).Copy
        wbkNew.Sheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
        wbkNew.Sheets(1).Rows(1).Insert

        wbkNew.Sheets(1).Cells(1).Value = strThirdTable
        
        
         wbkNew.Sheets(1).Rows(2).Cells(1).Value = ThirdTable_Col1 'This line code will add additional column to csv
            wbkNew.Sheets(1).Rows(2).Cells(2).Value = ThirdTable_Col2
 
        
    

Dim j As Integer
 lastcell = Range("A" & Cells.Rows.Count).End(xlUp).Row
 MsgBox lastcell
 For j = 2 To lastcell
    Rate_basis1 = UCase(wksAct.Cells(j, 16).Value)
    RR_name = UCase(wksAct.Cells(j, 2).Value)
    
     If Not (Rate_basis1 = "") Then
                                                          
                wbkNew.Sheets(1).Range("B3").Activate
					For i = 3 To wbkNew.Sheets(1).Range("A1").End(xlDown).Row - 0
                 wbkNew.Sheets(1).Rows(i).Cells(1).Value = "GRK." & RR_name
       
                                wbkNew.Sheets(1).Rows(i).Cells(2).Value = "GRK." & Rate_basis1
                 
          
					Next i
                wbkNew.Sheets(1).Range("A1").Activate
                                   
     End If
Next j
         

        
        Application.DisplayAlerts = False
        wbkNew.SaveAs Filename:=strSaveLocation & strThirdCSVName, FileFormat:=xlCSV, CreateBackup:=False
        Application.DisplayAlerts = True