I'm saying a slight revision of the code will do what you're enquiring about, e.g.,
<font face=Courier New><SPAN style="color:darkblue">Sub</SPAN> ExToEx()
<SPAN style="color:darkblue">Dim</SPAN> cn <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>
<SPAN style="color:darkblue">Set</SPAN> cn = CreateObject("ADODB.Connection")
cn.<SPAN style="color:darkblue">Open</SPAN> "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
"c:\temp\test.xls;Extended Properties=Excel 8.0;"
cn.Execute "Insert Into [Sheet3$] <SPAN style="color:darkblue">In</SPAN> <SPAN style="color:green">'' " & _
"[Excel 8.0;Database=" & ThisWorkbook.FullName & ";HDR=Yes] Select " & _
"col1, col2, col5, col7 From [Sheet3$a4:g65536] Where --col5 > 8000"</SPAN>
cn.Close: <SPAN style="color:darkblue">Set</SPAN> cn = <SPAN style="color:darkblue">Nothing</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN></FONT>
Where c:\temp\test.xls is the closed Excel file, col1, col2, col5 & col7 are valid headers in row 4 and col7 is to be tested. I had strings in col5, so I coerced them to numeric data types.
Hope this helps.