Option Explicit
Sub Ghep4Dong()
 Dim jJ As Long, Ww As Long, Rws As Long, Zz As Long, Ff As Long, Col As Byte
 Dim Timer_ As Double:              Const SoGy As Double = 300
 Dim Sh As Worksheet
 
 Timer_ = Timer
 Set Sh = ThisWorkbook.Worksheets("S2")
 Sheet1.Select:                     Rws = [A65500].End(xlUp).Row
 Sheets("KQ").Cells.Clear:          Col = 1
 For jJ = 4 To Rws - 3
    Sh.[A1].EntireRow.Value = Cells(jJ, 1).EntireRow.Value
    For Ww = jJ + 1 To Rws - 2
        Sh.[A2].EntireRow.Value = Cells(Ww, 1).EntireRow.Value
        For Zz = Ww + 1 To Rws - 1
            Sh.[A3].EntireRow.Value = Cells(Zz, 1).EntireRow.Value
            For Ff = Zz + 1 To Rws
                Sh.[A4].EntireRow.Value = Cells(Ff, 1).EntireRow.Value
                If Sh.[b7] > 0 And Sh.[ae7] > 0 And Sh.[bi7] > 0 And Sh.[Cm7] > 0 And Sh.[Dq7] > 0 _
                    And Sh.[eu7] > 0 And Sh.[Fy7] > 0 And Sh.[hC7] > 0 And Sh.[iG7] > 0 Then
                    Sh.[A1].Resize(4).Copy Destination:=Sheets("KQ").Cells(65535, Col).End(xlUp).Offset(2)
                End If
                If Sheets("KQ").Cells(65535, Col).End(xlUp).Row > 65515 Then Col = Col + 1
                If Timer() - Timer_ > SoGy Then Exit Sub
            Next Ff
        Next Zz
    Next Ww
 Next jJ
GPE:                                MsgBox Timer - Timer_
End Sub