¿Código VBA para consultar por condición?

El siguiente es el código VBA que cumple con los requisitos anteriores:

``

Sub DataQuery()

Dim startDate As Date, endDate As Date, company As Cadena

Atenuar rowIdx mientras sea largo, lastRowIdx mientras sea largo, resultRowIdx mientras

Atenuar ws1 como hoja de trabajo, ws2 como hoja de trabajo

Atenuar eData como variante, fData como variante , gData como variante, hData como variante, iData como cadena