IF > Value Put in Cell

[tfowlerusa]

I have a sheet where I am trying to pull only the cell where the value is greater the 3 and put them in column H & I within the same sheet. I have a list in Table 1 where if "F" is > the 3 with conditional formatting on. Is there a way to pull only data from Table 1 with Qty > then 3 and match it like in Table 2 columns "H" & "I"? ( I manually created the columns in Table 2 ) Thank you.

Table 1

E	F
<style type="text/css"><!--td {border: 1px solid #ccc;}br {mso-data-placement:same-cell;}--></style> Event/Vendor/Tool JQ05-AMAT-EMO JXD1-AMAT-TSA JS07-AMAT-He FLOW JS07-AMAT-LOST PLASMA JO01-LAM-LOST PLASMA JS05-AMAT-IMPEDENCE FAULT JQ04-AMAT-HO Defect JLD2-AMAT-HEATER JO01-LAM-PLY JQ04-AMAT-UV Lamp <tbody> </tbody>	<style type="text/css"><!--td {border: 1px solid #ccc;}br {mso-data-placement:same-cell;}--></style> Tx Wafer Qty 2 2 1 8 2 2 2 2 1 6 <tbody> </tbody>

<tbody>
</tbody>

Table 2

H	I
<style type="text/css"><!--td {border: 1px solid #ccc;}br {mso-data-placement:same-cell;}--></style> Event/Vendor/Tool Avg Per Week JS07-AMAT-LOST PLASMA JQ04-AMAT-UV Lamp <tbody> </tbody>	<style type="text/css"><!--td {border: 1px solid #ccc;}br {mso-data-placement:same-cell;}--></style> Tx Wafer Qty 8 6 <tbody> </tbody>

<tbody>
</tbody>

 

[James_Latimer]

Maybe something like this...

Sub CreateYourTable()
Dim Cntr As Integer


    With Sheets("sheet1")
        .Range("H:I").ClearContents
    
        For Cntr = 1 To Application.WorksheetFunction.CountA(.Range("E:E")) - 1
            If .Range("E1").Offset(Cntr, 1) > 3 Then
                .Range("H1").Offset(Application.WorksheetFunction.CountA(.Range("H:H")), 0).Value = .Range("E1").Offset(Cntr, 0).Value
                .Range("I1").Offset(Application.WorksheetFunction.CountA(.Range("I:I")), 0).Value = .Range("E1").Offset(Cntr, 1).Value
            End If
        Next Cntr
    End With
End Sub