Essas linhas sao fixas?????

Vai copiar de onde?

Outra coisa pq passar para o VBA se o Procv esta atendendo....

Sua planilha nao é tao pesada.

Eles são fixas, mas não quero copia-las e sim modificar a propriedade da linhas com a cor cinza.
Colocar as letras em negrito.

Muito obrigado pela resposta.

Agora nao entendi.

Explica isso melhor

.....mas não quero copia-las e sim modificar a propriedade da linhas com a cor cinza.
Colocar as letras em negrito.

O que vc quer dizer com modificar a propriedade.....

Eu possuo linhas em cinzas.

Eu quero selecionar só as linhas em cinza e colocar o que está escrito dentro delas em negrito.

Selecionar linhas pela propriedade da cor dela , ou seja, as linhas cinzas.

Tente isso

Sub Seleciona()

Application.ScreenUpdating = False

Sheets("PLANILHA DE SERVIÇOS").Select
Range("A4:G4").Select
Selection.Font.Bold = True

Range("A6:G6").Select
Selection.Font.Bold = True

Range("A8:G8").Select
Selection.Font.Bold = True

Range("A13:G13").Select
Selection.Font.Bold = True

Range("A16:G16").Select
Selection.Font.Bold = True

Range("A19:G19").Select
Selection.Font.Bold = True

Range("A23:G23").Select
Selection.Font.Bold = True

Range("A44:G44").Select
Selection.Font.Bold = True

Range("A71:G71").Select
Selection.Font.Bold = True

Range("A88:G88").Select
Selection.Font.Bold = True

Range("A95:G95").Select
Selection.Font.Bold = True

Range("A99:G99").Select
Selection.Font.Bold = True

Range("A103:G103").Select
Selection.Font.Bold = True

Range("A108:G108").Select
Selection.Font.Bold = True

Range("A110:G110").Select
Selection.Font.Bold = True

Range("A115:G115").Select
Selection.Font.Bold = True

Range("A121:G121").Select
Selection.Font.Bold = True

Range("A4").Select

Application.ScreenUpdating = True

End Sub

Valeu,
Muito obrigado.