Acho que resolvi com isso:

Sub vvvv()

Application.ScreenUpdating = False 'Desabilita atualização de tela

 Dim x As Integer
 

 For x = 72 To 86
 

  Sheets("Venda1").Activate
  
If Range("D" & x).Value = "" Then
GoTo Fim
Else: End If

 Sheets("Lancamentos Entrada & Saida").Activate
 Rows("3:3").Insert Shift:=xlDown
 Sheets("Venda1").Activate

If Range("D" & x).Value <> "" Then

    Range("D" & x & ":H" & x).Copy

    Sheets("Lancamentos Entrada & Saida").Select
    Range("A3").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

End If
Next
Fim:

Application.ScreenUpdating = True 'Habilita atualização de tela

    Sheets("Lancamentos Entrada & Saida").Select

End Sub