.Find function

Hi- I am struggling a bit with the find function. I currently have a summary sheet called "Comments" and I have a data sheet called "Data". In my comments sheet, I am showing the following 7 columns (I have an empty column in between each):
1. Company name (column B)
2. Type of business (column D)
3. Date (column F)
4. Type of business code (column H)
5. Clientel (column J)
6. Revenue (column L)
7. Comments (column N)

These 7 columns are being populated from the Data tab manually. the Data tab has about 25 columns of data, and I want my VBA to:
1. look in column 21, which is a column full of formulas, and find every cell with a "yes"
2. in that same row, grab the information needed above, and place it into the Comments tab.

The VBA below gets me halfway there... If there are 15 cells in column 21 with the value of "yes", then there should be 15 rows in the Comments tab. I'm having a hard time finding the "yes" in column 2, then placing it in Comments tab, then going to the next "yes" value in column 21 and placing in the next row of the Comments tab. Very hard to follow- I'm sorry. Here is what I have so far:

Worksheets("Comments").Range("B4:N1000").ClearContents
 
 
Dim lCount As Long

Dim TheMark As Range



    Set TheMark = Worksheets("Data").Range("U1")


        Worksheets("Data").Activate
        For lCount = 1 To WorksheetFunction.CountIf(Columns(21), "yes")

            Set TheMark = Columns(21).Find(what:="yes", after:=TheMark, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

            

             With TheMark
                .Offset(0, -18).Select
                 Set LegalEntity = ActiveCell
                    Worksheets("Comments CMC & NYB").Range("B4").Value = LegalEntity
                    
                .Offset(0, -5).Select
                 Set LineOfBusiness = ActiveCell
                    Worksheets("Comments CMC & NYB").Range("D4").Value = LineOfBusiness
         
                .Offset(0, -19).Select
                 Set TradeDate = ActiveCell
                    Worksheets("Comments CMC & NYB").Range("F4").Value = TradeDate
                    
                .Offset(0, -4).Select
                 Set ErrorType = ActiveCell
                    Worksheets("Comments CMC & NYB").Range("H4").Value = ErrorType
                    
                .Offset(0, -14).Select
                 Set Counterparty = ActiveCell
                    Worksheets("Comments CMC & NYB").Range("J4").Value = Counterparty
                    
                .Offset(0, -17).Select
                 Set PNL = ActiveCell
                    Worksheets("Comments CMC & NYB").Range("L4").Value = PNL
                    
                .Offset(0, -11).Select
                 Set Comments = ActiveCell
                    Worksheets("Comments CMC & NYB").Range("N4").Value = Comments
                
                
             End With

            

        Next lCount