Ok, a história é curta: estamos construindo um banco de dados e um sistema de faturas habilitados para Macro completamente personalizados. Atualmente, conseguimos configurar as macros para adicionar novos clientes, procurando os números de clientes existentes, criando a fatura com uma caixa pop-up para inserir o número do cliente que preenche automaticamente as informações dos clientes na fatura, um botão para adicionar um produto SKU que preenche automaticamente a descrição e o preço.
A principal questão que parece estar tendo é a capacidade de criar um botão Salvar fatura que copia os dados da célula de certas células para uma nova planilha.
Praticamente o que queremos copiar é:
Células E5 e F5 que são células mescladas no primeiro espaço aberto na coluna A.
Células E6 e F6 que são células mescladas no primeiro espaço aberto na coluna D.
Células E7 e F7 que são células mescladas no primeiro espaço aberto na coluna C.
Células B10 e C10 que são células mescladas no primeiro espaço aberto na coluna B.
Célula G49 no primeiro espaço aberto na coluna E.
Célula G50 no primeiro espaço aberto na coluna F.
Célula G51 no primeiro espaço aberto na coluna G.
A nova planilha para a qual ela precisa ser copiada é Nomes e está sendo transferida da guia Recebimento, pressionando o botão Salvar fatura.
Isso pode ser o que você está descrevendo.
Sub saveButton()
Set ws = Sheets("Invoices")
Set rs = Sheets("Receipts")
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
ws.Range("A" & LastRow) = rs.Range("E5")
ws.Range("D" & LastRow) = rs.Range("E6")
ws.Range("C" & LastRow) = rs.Range("E7")
ws.Range("B" & LastRow) = rs.Range("B10")
ws.Range("E" & LastRow) = rs.Range("G49")
ws.Range("F" & LastRow) = rs.Range("G50")
ws.Range("G" & LastRow) = rs.Range("G51")
End Sub