Search columns and paste rows

Welcome to the Board.

Something along the lines of the below perhaps ?

Public Sub FilterData()
Dim rngArea As Range
Sheets("sheet2").Columns(1).Clear
Sheets("Sheet1").Select
With Range(Cells(1, Columns.Count), Cells(Rows.Count, "A").End(xlUp).Offset(, Columns.Count - 1))
    .FormulaR1C1 = "=IF(AND(RC2=0,RC3<=0.1,RC4<=0.1),1,""x"")"
    For Each rngArea In .SpecialCells(xlCellTypeFormulas, xlNumbers).Areas
        Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(rngArea.Rows.Count).Value = rngArea.Offset(, 1 - Columns.Count).Value
    Next rngArea
    .Clear
End With
End Sub