Sub ПоискДок()

Sheets("На печать").Protect Password:="123", UserInterfaceOnly:=True

With Sheets("На печать").Range("E5:F3000")
.HorizontalAlignment = xlLeft 'текст влево (так по умолчанию)
.Font.Underline = xlUnderlineStyleNone 'текст без подчеркиваний (так по умолчанию)
.Font.Size = 11 '11 шрифт (так по умолчанию)

End With

With Sheets("На печать").Range("E5:F3000")

Set k = .Find("Наименование", LookIn:=xlValues)
If Not k Is Nothing Then
firstResult = k.Address
Do
k.HorizontalAlignment = xlCenter 'столбец "Наименование" по центру
Set k = .FindNext(k)
Loop While Not k Is Nothing And k.Address <> firstResult
End If

End With

With Sheets("На печать").Range("E5:F3000")

Set c = .Find("Диоды", LookIn:=xlValues)
If Not c Is Nothing Then
firstResult = c.Address
Do
c.HorizontalAlignment = xlCenter 'текст "Диоды" по центру
c.Font.Underline = xlUnderlineStyleSingle

Set c = .Find("Диоды", After:=c, LookIn:=xlValues)
Loop While Not c Is Nothing And c.Address <> firstResult
End If

Set d = .Find("Кварцевые резонаторы", LookIn:=xlValues)
If Not d Is Nothing Then
firstResult = d.Address
Do
d.HorizontalAlignment = xlCenter 'текст "Кварцевые резонаторы" по центру
d.Font.Underline = xlUnderlineStyleSingle

Set d = .Find("Кварцевые резонаторы", After:=d, LookIn:=xlValues)
Loop While Not d Is Nothing And d.Address <> firstResult
End If

Set e = .Find("Конденсаторы", LookIn:=xlValues)
If Not e Is Nothing Then
firstResult = e.Address
Do
e.HorizontalAlignment = xlCenter 'текст "Конденсаторы" по центру
e.Font.Underline = xlUnderlineStyleSingle
Set e = .Find("Конденсаторы", After:=e, LookIn:=xlValues)
Loop While Not e Is Nothing And e.Address <> firstResult
End If

Set f = .Find("Микросхемы", LookIn:=xlValues)
If Not f Is Nothing Then
firstResult = f.Address
Do
f.HorizontalAlignment = xlCenter 'текст "Микросхемы" по центру
f.Font.Underline = xlUnderlineStyleSingle
Set f = .Find("Микросхемы", After:=f, LookIn:=xlValues)
Loop While Not f Is Nothing And f.Address <> firstResult
End If

Set r = .Find("Предохранители", LookIn:=xlValues)
If Not r Is Nothing Then
firstResult = r.Address
Do
r.HorizontalAlignment = xlCenter 'текст "Предохранители" по центру
r.Font.Underline = xlUnderlineStyleSingle
Set r = .Find("Предохранители", After:=r, LookIn:=xlValues)
Loop While Not r Is Nothing And r.Address <> firstResult
End If

Set g = .Find("Разъемы", LookIn:=xlValues)
If Not g Is Nothing Then
firstResult = g.Address
Do
g.HorizontalAlignment = xlCenter 'текст "Разъемы" по центру
g.Font.Underline = xlUnderlineStyleSingle
Set g = .Find("Разъемы", After:=g, LookIn:=xlValues)
Loop While Not g Is Nothing And g.Address <> firstResult
End If

Set h = .Find("Резисторы", LookIn:=xlValues)
If Not h Is Nothing Then
firstResult = h.Address
Do
h.HorizontalAlignment = xlCenter 'текст "Резисторы" по центру
h.Font.Underline = xlUnderlineStyleSingle
Set h = .Find("Резисторы", After:=h, LookIn:=xlValues)
Loop While Not h Is Nothing And h.Address <> firstResult
End If

Set m = .Find("Транзисторы", LookIn:=xlValues)
If Not m Is Nothing Then
firstResult = m.Address
Do
m.HorizontalAlignment = xlCenter 'текст "Транзисторы" по центру
m.Font.Underline = xlUnderlineStyleSingle
Set m = .Find("Транзисторы", After:=m, LookIn:=xlValues)
Loop While Not m Is Nothing And m.Address <> firstResult
End If

Set j = .Find("Светодиоды", LookIn:=xlValues)
If Not j Is Nothing Then
firstResult = j.Address
Do
j.HorizontalAlignment = xlCenter 'текст "Светодиоды" по центру
j.Font.Underline = xlUnderlineStyleSingle
Loop While Not j Is Nothing And j.Address <> firstAddress
End If

End With

End Sub