Your code will be something similar to the one below. Change the columns of the sheets(A).cells(linha,coluna)
object to the columns you want.
Note: I put two dates: one for the first day of the month and one for the last one, to mark the interval. Then you will either want to enter two dates instead of one month.
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