VBA to export rows in source doc to an existing document and save as new file : 'I am trying to make a vba code to open an existing spreadsheet and populate the first row of that existing spreadsheet with the row of the information from the source spreadsheet then auto save it as the project name listed in a specific cell of the source. Can anyone help me out. I am not a coder, just copying codes that I have found. I am using this code.   

Sub Button1_Click()
    
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    
    On Error GoTo PROC_ERROR
    
    Dim ThisWorkbook As Workbook, NewBook As Workbook
    Dim ThisWorksheet As Worksheet, NewWs As Worksheet
    Dim i As Integer, j As Integer, k As Integer, ExportCount As Integer
    
    Set ThisWorkbook = ActiveWorkbook
    Set ThisWorksheet = ThisWorkbook.Sheets("Sheet1")
    ExportCount = 0
    
    For i = 2 To Aslong
        If ThisWorksheet.Cells(i, 1) <> "" Then
            Set NewBook = Workbooks.Open("F:\DBA\Land Opportunities\Set-Up Templates\FOR SALE TEMPLATE.xlsx")
            Set NewWs = Existing.Sheets("Project")
            For j = 2 To 13
                If ThisWorksheet.Cells(i, j) <> "" Then
                    NewWs.Cells(1, 1) = ThisWorksheet.Cells(i, j)
                End If
            Next j
           
            With NewBook
                .Sheets("Sheet2").Delete
                .Sheets("Sheet3").Delete
                .Title = ThisWorksheet.Cells(i, 3)
                .SaveAs Filename:=ThisWorksheet.Cells(i, 3) & ".csv", FileFormat:=xlCSV, CreateBackup:=False
            End With
            ExportCount = ExportCount + 1
        End If
    Next i
    
    PROC_ERROR:
    If Err.Number <> 0 Then
        MsgBox "This macro has encountered an error and needs to exit. However, some or all of your exported workbooks may still have been saved. Please try again." _
        & vbNewLine & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description, vbInformation
        ExportCount = 0
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
        Exit Sub
    Else
        MsgBox "Successfully exported " & ExportCount & " workbooks!", vbInformation
        ExportCount = ExportCount
    End If
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    End Sub

