Sub ll_f_sad()
 Dim SVOD As Worksheet
 Dim ws As Worksheet
 Dim numExist As Boolean
 Dim myRng As Range
 Dim FirstRow As Integer
 Dim LastRow As Integer
 
 Set SVOD = Worksheets("e")

 For Each ws In ThisWorkbook.Worksheets
  If ws.Name <> SVOD.Name Then
    
    'Проверка уже скопированных накладных
    On Error Resume Next
      numExist = False
      numExist = IsNumeric(SVOD.Range("A:A").Find(ws.Range("f2").Value).Row)
    On Error GoTo  0 
    
    If numExist = False Then
      Set myRange = ws.Range("A11", ws.Range("D" & ws.Rows.Count).End(xlUp))
      FirstRow = SVOD.Range("A" & SVOD.Rows.Count).End(xlUp).Offset( 1 ,  0 ).Row
      LastRow = FirstRow -  1  + myRange.Rows.Count
      
      SVOD.Range("A" & FirstRow, "A" & LastRow).Value = ws.Range("F2").Value
      SVOD.Range("B" & FirstRow, "B" & LastRow).Value = ws.Range("H2").Value
      SVOD.Range("C" & FirstRow, "C" & LastRow).Value = ws.Range("C3").Value
      SVOD.Range("D" & FirstRow, "D" & LastRow).Value = myRange.Columns( 1 ).Value
      SVOD.Range("E" & FirstRow, "E" & LastRow).Value = myRange.Columns( 3 ).Value
      SVOD.Range("F" & FirstRow, "F" & LastRow).Value = myRange.Columns( 4 ).Value
    End If
  
  End If

 Next ws

 SVOD.Select
 Range("A1").Select

End Sub