Sub определить_типы()

Dim mass1(), mass2(), mass3(), mass4(), mass5(), mass6(), mass7(), mass8() As Variant

' вмещает
mass1 = Array("AR", "F70", "N11F", "LR", "LLB")
' заканчивается
mass2 = Array("L60", "H00", "F60L", "N72", "K3")
' начинается
mass3 = Array("11", "13", "31", "33")
' равно
mass4 = Array("40400", "1884LST", "1785K")
' начинается на элемент из mass5 и заканчивается на элемент из mass6
mass5 = Array("31", "37", "51", "71", "76")
mass6 = Array("S00", "M00", "L00")
' если элемент из содержит mass7, но не содержит элемент из mass8
mass7 = Array("NF")
mass8 = Array("CO")

lr = Cells(1, 1).End(xlDown).Row
    For i = 2 To lr
        Cells(i, 2).Value = получить_тип_модели(Cells(i, 1).Value)
    Next i
End Sub

Private Sub получить_тип_модели(model_name As String)

' тут опредиление типа

End Sub

Sub формат_печати_последней_страницы()

Dim numAllPages As Long
Dim lastRowDiap As Long
Dim lastRowSheet As Long
Dim numlastRowDiapPage As Long
Dim numlastRowSheetPage As Long

' задать параметры печати
With Worksheets(1).PageSetup
 .LeftMargin = Application.InchesToPoints(0)
 .RightMargin = Application.InchesToPoints(0)
 .TopMargin = Application.InchesToPoints(0)
 .BottomMargin = Application.InchesToPoints(0)
 .HeaderMargin = Application.InchesToPoints(1.3)
 .FooterMargin = Application.InchesToPoints(1.3)
End With

With Worksheets(1).PageSetup
 .Zoom = False
 .FitToPagesWide = 1
 .FitToPagesTall = 1000
End With

' узнать количество страниц печати
ActiveWindow.View = xlPageBreakPreview
numAllPages = Worksheets(1).HPageBreaks.Count + 1


' записать номер страницы где находится последняя строка всего листа
numlastRowSheetPage = numAllPages

' узнать номер последней строки из определенного диапазона
lastRowDiap = Cells(10, 1).End(xlDown).Row

' узнать номер последней строки из всего листа
last = Cells(10, 6).End(xlDown).Row
lastRowSheet = Cells(last, 6).End(xlDown).Row

' узнать номер страницы где находится последняя строка нашего диапазона
Cells(lastRowDiap, 1).Activate
For i = 1 To ActiveSheet.HPageBreaks.Count
    If ActiveCell.Row < ActiveSheet.HPageBreaks(i).Location.Row - 1 Then Exit For
Next
numlastRowDiapPage = i

' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' условие если последние строки на разных страницах
Do Until numlastRowDiapPage = numlastRowSheetPage
lr = Cells(11, 1).End(xlDown).Row
rowHei = Range(Cells(11, 1), Cells(lr, 1)).RowHeight
rowHei = rowHei + 1

' узнать количество страниц печати
ActiveWindow.View = xlPageBreakPreview
numAllPages = Worksheets(1).HPageBreaks.Count + 1
ActiveWindow.View = xlNormalView

' записать номер страницы где находится последняя строка всего листа
numlastRowSheetPage = numAllPages

' узнать номер последней строки из определенного диапазона
lastRowDiap = Cells(10, 1).End(xlDown).Row

' узнать номер последней строки из всего листа
last = Cells(10, 6).End(xlDown).Row
lastRowSheet = Cells(last, 6).End(xlDown).Row

' узнать номер страницы где находится последняя строка нашего диапазона
Cells(lastRowDiap, 1).Activate
For i = 1 To ActiveSheet.HPageBreaks.Count
    If ActiveCell.Row < ActiveSheet.HPageBreaks(i).Location.Row - 1 Then Exit For
Next
numlastRowDiapPage = i
Loop
' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
ActiveWindow.View = xlNormalView
MsgBox ("Количество всех страниц: " & numAllPages & "; " & "Последняя строка в диапазоне: " & lastRowDiap & "; " & "Последняя строка на листе: " & lastRowSheet & "; " & "Номер страницы строки диапазона: " & numlastRowDiapPage & "; " & "Номер страницы последней строки: " & numlastRowSheetPage & "; ")

End Sub