I have this code to send an invoice, the invoice having a header and multiple invoice lines, to a database worksheet. In this example I would send four invoice lines along the header information to the database. Each of the four lines would have common header information. How would I stop the posting of lines three and four if they were blank? Other wise I would create two extra records in the database that had only the header information, Invoice no, Customer name etc., which I don't want. [c23], [d23], [f23], [b23] and [c24], [d24], [f24, [b24] would be blank. I assume I would need some sort of if statement in VBA, what would this If statement look like in VBA?

Sub MoveRecord()
    Dim WSF As Worksheet ' Invoice worksheet
    Dim WSD As Worksheet ' SalesData worksheet
    Set WSF = Worksheets("Invoice")
    Set WSD = Worksheets("SalesData")
    NextRow = WSD.Cells(Rows.Count, 1).End(xlUp).Row + 1
    WSD.Cells(NextRow, 1).Resize(1, 10).Value = Array([F6], [F6], [F5], [A18], [b18], [c10], [c21], [d21], [f21], [b21])
    
    NextRow = WSD.Cells(Rows.Count, 1).End(xlUp).Row + 1
    WSD.Cells(NextRow, 1).Resize(1, 10).Value = Array([F6], [F6], [F5], [A18], [b18], [c10], [c22], [d22], [f22], [b22])
    
    NextRow = WSD.Cells(Rows.Count, 1).End(xlUp).Row + 1
    WSD.Cells(NextRow, 1).Resize(1, 10).Value = Array([F6], [F6], [F5], [A18], [b18], [c10], [c23], [d23], [f23], [b23])
    
    NextRow = WSD.Cells(Rows.Count, 1).End(xlUp).Row + 1
    WSD.Cells(NextRow, 1).Resize(1, 10).Value = Array([F6], [F6], [F5], [A18], [b18], [c10], [c24], [d24], [f24], [b24])

End Sub