Excel - uma macro para copiar dados de diferentes folhas

Questão

Eu estou tentando copiar dados de folhas diferentes para folha mestre sob os seguintes critérios

A folha mestre deve ser gerada sempre que eu executar uma macro apagando a folha mestre anterior.
Todos os cabeçalhos de coluna são idênticos.
Para a folha mestre, apenas um título deve ser copiado (ou seja, a primeira linha não deve ser copiada da segunda folha).
Se valores zero em uma célula específica estiverem aparecendo, essa linha não deverá ser copiada.
A planilha mestre deve ser classificada de acordo com a coluna mencionada na execução da macro. (Ou seja, vou atribuir na caixa de mensagem o campo / coluna que deve ser classificado na folha mestre.)

Solução

Eu tenho uma dúvida que você deseja copiar os dados de todos os meses para a folha mestre ou para o mês a mês. Eu assumi todos os meses. Nesse caso, tente esta macro

 Sub teste () Dim j Como Long, k Como Long, r Como Range j = Worksheets.Count Com Worksheets ("master") Defina r = Range (.Range ("A2"), .Range ("A2"). End (xlDown)) r.EntireRow.Delete End With Para k = 1 Para j Se Worksheets (k) .Name = "master" Em seguida, manipulador de erros GoTo Com Planilhas (k) Se .Range ("A2") = "" Então, manipulador de erros GoTo Defina r = Range (.Range ("A2"), .Range ("A2"). End (xlDown)) planilhas r.EntireRow.Copy ("master"). Células (Rows.Count, "A"). (xlUp) .Offset (1, 0) .PasteSpecial End Com errorhandler: Próximo k End Sub

No seu arquivo você tem muitos módulos vazios. Remova todos eles, exceto o módulo1.