Sub Price_miN()

  InExSu.Cells.Clear

  Dim ws_Name As Variant, _
    ws As Worksheet

  For Each ws_Name In a1_Sheets_List

    Set ws = Worksheets(ws_Name)
    Column_Fill ws
    
    ws.UsedRange. _
      Copy InExSu.Cells(Строка_Свободная(InExSu), 1)

  Next
  
  Сортировать_Дубликаты_Удалить
  
End Sub

Sub Сортировать_Дубликаты_Удалить()

  With InExSu
    .Sort.SortFields.Clear
    .Sort.SortFields.Add2 Key:=.Cells(2, 1), _
      SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Sort.SortFields.Add2 Key:=.Cells(2, 3), _
      SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With InExSu.Sort
      .SetRange InExSu.UsedRange
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
    End With
    
    .UsedRange.RemoveDuplicates Columns:=1, Header:=xlYes
  
    .UsedRange.RemoveDuplicates Columns:=1, Header:=xlNo
  
  End With 'InExSu
End Sub

Function a1_Sheets_List() _
  As Variant

  a1_Sheets_List = Array("прайс поставщик 1", "прайс поставщик 2", "прайс поставщик 3")

End Function

Sub Column_Fill( _
  ws As Worksheet)

  With ws
    Application.Intersect( _
      .UsedRange, .Columns(3)).Offset(0, 1).Value = _
      .Cells(1, 3).Value

  End With
End Sub

Function Строка_Свободная( _
        ws As Worksheet) _
        As Long
    ' procedure Checked by test

    Dim r As Range

    Set r = ws.Cells.Find(what:="*", SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious)

    If r Is Nothing Then

        Строка_Свободная = 1

    Else

        Строка_Свободная = r.Row + 1

    End If
End Function