Сложи този код:

MyNewFile.Activate

i = 1
Do

If Worksheets(firstWS).Cells(i, 5).Value = "" Or _
Worksheets(firstWS).Cells(i, 5).Value = 0 Then
Worksheets(firstWS).Rows(i).Delete
LastRow = Worksheets(firstWS).Range("A65536").End(xlUp).Row
Else
i = i + 1
End If

Loop Until i > LastRow



i = 1
Do

If Worksheets(secondWS).Cells(i, 7).Value = "" Or _
Worksheets(secondWS).Cells(i, 7).Value = 0 Then
Worksheets(secondWS).Rows(i).Delete
LastRow = Worksheets(secondWS).Range("A65536").End(xlUp).Row
Else
i = i + 1
End If

Loop Until i > LastRow


След реда Loop - имам предвид този Loop който е непосредствено след MyFileName = Dir()
След като всичко е копирано прави проверка в лист а и лист Б на новия файл и итрива редовете в лист А, за които стойността в колона Е e нула или нищо, както и в лист B, там където в колона G e нула или нищо
Надявам се че няма проблем с кода, но ако има нещо - кажи

Съдържаниет е скрито
Влезте за да го видите