Code to copy data from another workbook where offset cell equals "none"

My workbook stores data related to items that are all tracked by barcodes. Im using the following code (as part of a larger set of code) to copy data from rows 6 on in column D, E & G to K from one workbook to another. The data in F (Item Names) is found using a formula, by matching the barcode data in the corresponding G cell (on the same row) to another sheet (where the barcodes and Item names are stored). When the data has finished copying over and EnableEvents gets turned back on the F column mostly automatically fills itself in from the formula. The issue I have however is in certain circumstances there are some items that either dont have a barcode, or the barcode is missing. In this case the user types "none" (not case sensitive), which opens a userform allowing the user to type in an Item name that gets entered into the F cell, overwriting the formula. I need to copy this data over separately to the new workbook. Im looking for code to find these records from row 6 on (either by searching for rows where G equals "none", or rows where F has no formula, and then copy the data in F over to the other workbook to the corresponding row number but offset by the number of records already present in the active workbook (currently being calculated by wbReturnDataLastRow).

    Dim wb As Workbook
    Dim mybook As Workbook
    
    
    Set wb = ActiveWorkbook
    Set mybook = Workbooks("ERL.xlsm")
                        Dim mybookReturnDataLastRow As Long
                        Dim wbReturnDataLastRow As Long
                    
                        mybookReturnDataLastRow = mybook.Worksheets("ReturnData").Range("G6").End(xlDown).Row
                        wbReturnDataLastRow = wb.Worksheets("ReturnData").Cells(Rows.Count, "G").End(xlUp).Offset(1).Row
                          
                            With mybook.Worksheets("ReturnData")
                               .Range("D6", .Range("E" & mybookReturnDataLastRow)).Copy
                               wb.Worksheets("ReturnData").Range("D" & wbReturnDataLastRow).PasteSpecial xlPasteValues
                               .Range("G6", .Range("K" & mybookReturnDataLastRow)).Copy
                               wb.Worksheets("ReturnData").Range("G" & wbReturnDataLastRow).PasteSpecial xlPasteValues
                            End With

wb is the ActiveWorkbook that the data is being copied to
mybook is the workbook that the data is being copied from

Thanks,
James