Can you help with this problem?
The code below finds and copys the creteria where column G is empty and pastes the required rows from A to G into a new excel workbook.
However between each row of the required criteria that it finds, it is also pasting values of only column D and G where the value of column G is not empty.
I do not need these rows nor the values of column G if it contains a value:

Sub CopyEmptyPOWorkbook()

Dim i As Long, lastRow As Long
Dim myRange As Range, myCell As Range
Dim text As String

lastRow = Cells(Rows.count, "A").End(xlUp).Row
Set myRange = Range("A1:A" & lastRow)

Dim newWb As Workbook
Set newWb = Workbooks.Add

Dim newWs As Worksheet
Set newWs = newWb.Sheets.Add(After:=newWb.Sheets(newWb.Sheets.count))
newWs.Name = "Results"

newWs.Cells(1, 1).Value = "COMPANY"
newWs.Cells(1, 2).Value = "WORK"
newWs.Cells(1, 3).Value = "QUOTE REF"
newWs.Cells(1, 4).Value = "VALUE"
newWs.Cells(1, 5).Value = "P REQUEST"
newWs.Cells(1, 6).Value = "PR DATE"
newWs.Cells(1, 7).Value = "P ORDER"

Dim newRow As Long
newRow = 1
For Each myCell In myRange
If myCell.Value <> "" Then
newRow = newRow + 1

For i = 1 To 7
If Cells(myCell.Row, i + 6).Value = "" Then
''''''newWs.Cells(newRow, i).Value = Trim(Cells(myCell.Row, i).Value)
newWs.Cells(newRow, i).Value = Cells(myCell.Row, i).Value

End If
Next i
End If
Next myCell

newWb.Activate

MsgBox "Please examine the new workbook and make any necessary changes before saving it. To save the file, click File > Save As, or use the keyboard shortcut Ctrl+S.", vbInformation, "New Workbook Created"

End Sub