' === Pratica Obrigatoria 1 (ATIVO) ===
Sub FormatarRelatorioPortaria()
    ' 1. Estilização do Cabeçalho com o bloco With
    With Range("A1:E1")
        .Font.Name = "Segoe UI"
        .Font.Size = 11
        .Font.Bold = True
        .Font.Color = RGB(255, 255, 255)
        .Interior.Color = RGB(0, 51, 102)
        .HorizontalAlignment = xlCenter
    End With
    
    ' 2. Auto-ajuste de largura das colunas operacionais
    Columns("A:E").AutoFit
    
    ' 3. Notificação ao operador (Desafio de Fixação)
    MsgBox "Relatório da Portaria FastLog formatado com sucesso!", vbInformation, "Automação Concluída"
End Sub