Sub collect_info()

Dim ws As Worksheet, LastColumn As Long, LR As Long, LR_ALL As Long, All As Worksheet

Set All = ActiveWorkbook.Worksheets("All")

For Each ws In ActiveWorkbook.Worksheets

If ws.Name = "All" Then
GoTo finish
Else

LastColumn = ws.Cells(11, ws.Columns.Count).End(xlToLeft).Column

LR = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row

LR_ALL = All.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1

ws.Range("B11:C" & LR).Copy _
    Destination:=All.Range("A" & LR_ALL)
End If

For i = 1 To LastColumn

If ws.Cells(1, i).Value = "ПОЛНОЕ НАИМЕНОВАНИЕ" Then

ws.Range(ws.Cells(11, i), ws.Cells(LR, i)).Copy

All.Range("C" & LR_ALL).PasteSpecial xlPasteValues

End If

Next i

finish:
Next

End Sub