Hi
Before you start, make the formulas in G:G202 into values.
I've used Sheet3 as the output sheet. Select the sheet BEFORE and run the following
Sub aaa()
Dim OutSH As Worksheet
Set OutSH = Sheets("Sheet3")
colarr = Array(8, 13, 14, 19, 20, 25)
For i = LBound(colarr) To UBound(colarr)
OutSH.Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Value = "Column: " & colarr(i)
For j = Cells(203, "H").End(xlUp).Row To 5 Step -1
If Cells(j, colarr(i)) < 0.15 And Len(Cells(j, colarr(i))) > 0 Then
OutSH.Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Resize(1, 19).Value = Cells(j, "G").Resize(1, 19).Value
Cells(j, "H").Resize(1, 18).ClearContents
End If
Next j
Next i
End Sub
See how that goes.
rylo
Bookmarks