Я новичок в программировании VBA. я бы хотел

поиск по листу и найти "N" или же "TR» в ряду 6Тогда для каждой ячейки в столбце «N» или же "TR»если все ячейки пустые, то удалите / скройте столбецесли ячейки не пустые, выделите пустые ячейки

Это звучит легко, но я думаю, что для петли нужны два.

 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    

прикрепленный пример таблицы