Soy nuevo en la programación de VBA. me gustaría

busque en la hoja de trabajo y busque "N" o "TR" en la fila 6Luego, para cada celda en la columna de "N" o "TR"Si todas las celdas están en blanco, borre / oculte la columnaSi las celdas no están en blanco, resalte las celdas que están en blanco.

Esto suena fácil pero creo que requiere dos para bucles.

 Sub checkandhide()    
    Set r = Range("6:6")  
    Rows("7:7").Select  
    For Each Cell In r  
        Selection.Find(What:="N", After:=ActiveCell, LookIn:=xlFormulas, LookAt _  
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _  
            False, MatchByte:=False, SearchFormat:=False).Activate  
        'search for N  
        Application.Run "hidecolumn"  
    Next  
 End Sub  


Sub hidecolumn()
    Dim target As Range
    Dim dwn As Range

    Set dwn = Range(ActiveCell.End(xlDown).Address)
    ActiveCell.Select

    ActiveCell.Offset(6, 0).Select

    For Each Cell In dwn
        If Cell.Text = "" Then Columns.Delete
    Next      
End Sub    

hoja de cálculo de ejemplo adjunto