Sub LayDL_HLMT()
Dim strSQL As String
strSQL = "Select F1,F2,F3,val(F4) from [Sheet1$A3:L] where F3 like 'RM-%' or F3 like 'PK-%' or F3 like 'Overhead-%' or F3 like 'Labor-%'" & _
" Union all Select F1,F2,F5,Val(F6) from [Sheet1$A3:L] where F5 like 'RM-%' or F5 like 'PK-%' or F5 like 'Overhead-%' or F5 like 'Labor-%'" & _
" Union all Select F1,F2,F9,Val(F10) from [Sheet1$A3:L] where F9 like 'RM-%' or F9 like 'PK-%' or F9 like 'Overhead-%' or F9 like 'Labor-%'" & _
" Union all Select F1,F2,F11,Val(F12) from [Sheet1$A3:L] where F11 like 'RM-%' or F11 like 'PK-%' or F11 like 'Overhead-%' or F11 like 'Labor-%'"
With CreateObject("ADODB.Connection")
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
Sheet1.Range("N3").CopyFromRecordset .Execute(strSQL)
End With
End Sub