Complex functional argument help needed!

I got some fantastic help with a solution here earlier and am hoping for more help with this and I THANK YOU VERY MUCH. I now have 2 other problems on the same workbook (the worksheets are renamed and the are 2 additional worksheets) that I believe the answer lies somewhere close to the previous one but I'm just not savvy enough with excel to figure it out. Here's the deal: There are 4 worksheets in the attached workbook entitled "ALL-NonCompliant", "NA-FullyCompliant", "NoContactInfo" and "dataALLfinal". I need help to figure out 2 separate functional arguments to conditionally transfer data from rows of the worksheet "dataALLfinal" onto 1) the worksheet "NA-FullyCompliant" and 2) "ALL-NonCompliant" dependent upon "Yes" or "No" values in columns G, H, I and J of the worksheet "dataALLfinal". The conditions of the argument are noted in green colored arrow shapes on the respective worksheets. Your help is greatly appreciated because the actual workbook contains several thousands of rows of data and this solution will greatly aid me in the task.Copy of Copy3 of testWorkbook.xlsx

Are you comfortable using macros instead of functions?

RE: question about main sheet - no I need the sheet to be clean and without voids, in other words each row would be filled with data from the "dataALLfinal" with all data meeting the conditions.

RE: macros - if there's a way to do it sure but I know nothing about them really. I'd be a rookie student here. But if it can be done, fire away. I your macro could be copied/pasted from the sample worksheet to my actual one . . . fantastic!

Make sure Column G do not have blanks starting G4 until end of all the records.

Sub Test()
Application.ScreenUpdating = False
Sheets("dataALLfinal").Select
Range("G4").Select
Do Until ActiveCell.Value = ""
    If ActiveCell.Offset(0, 0).Value = "Yes" _
        And ActiveCell.Offset(0, 1).Value = "Yes" _
        And ActiveCell.Offset(0, 2).Value = "Yes" _
        And ActiveCell.Offset(0, 3).Value = "Yes" Then
        ActiveCell.EntireRow.Copy
        Sheets("NA-FullyCompliant").Select
        Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste
    Else
        ActiveCell.EntireRow.Copy
        Sheets("ALL-NonCompliant").Select
        Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste
    End If
Sheets("dataALLfinal").Select
ActiveCell.Offset(1, 0).Select
Loop
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Ok but remember I am a novice. Just exactly where do I place this code in the workbook? Sorry, I'm truly an Excel Dummy.

haha, makes sense.
1. Open Excel
2. Make sure column G, H, I, J are filled as required
3. Alt + F11
4. Paste this code in the white space on right side
5. In Excel, go to View-->Macros-->View Macros, Click on Test from the list and Run.
6. Done

Do I do this on each worksheet?

just did that and got a big red X with the number 400 beside it . . .

No need. Once and every time you need it.

Working for me. Attached book with code and result.

WOW! I'll try it again . . . THANK YOU VERY MUCH!

I KEEP getting the error message: RED X 400 Any ideas?

Outstanding! Thank you very much!