Seu código vai ser alguma coisa semelhante ao que está abaixo. Altere as colunas do objeto sheets(A).cells(linha,coluna)
pelas colunas que deseja.
Observação: coloquei duas datas: uma para o primeiro dia do mês e outra para o último, para marcar o intervalo. Então você terá quer digitar duas datas em vez de um mês.
sub exemplo()
dim data_inicio as date, data_fim as date
dim linha as double
data_inicio = sheets("faturamento").cells(1,3).value
data_fim = sheets("faturamento").cells(1,4).value
linha_ordem= 'número da 1ª linha da tabela de ordens
do
if sheets("ordem").cells(linha_ordem,"coluna das datas").value>=data_inicio and sheets("ordem").cells(linha_ordem,"coluna das datas")<=data_fim then
sheets("faturamento").cells(linha_faturamento,"coluna destino").value = sheets("ordem").cells(linha_ordem, "coluna a ser copiada").value
linha_faturamento = linha_faturamento + 1
end if
linha_ordem = linha_ordem + 1
loop until sheets("ordem").cells(linha_ordem,"coluna das datas").value=""
end sub