copy cell data to multiple sheets

Hi I have a query re copying cell data to multiple sheets. I have setup a workbook which has an invoice sheet, Customer sheet, Bookeeping sheet etc.
I have a vba macro that will transfer the required data to 1 sheet i.e. copy data from invoice to customers sheet. I would also like it to copy some of the data into a separate sheet at the same time
i.e. when I click to copy details into my customer sheet it will also copy some not all data into my bookeeping sheet.

Is this possible? If so any idea how I can achieve this?

thanks

William.

Hi thanks for that, I have uploaded my workbook fingers crossed lol.

The sheet works as intended i.e. I fill in the required data into the invoice sheet then click on the button which sends the data to the customers sheet and clears the invoice ready for the next invoice.
What I have been trying to do is add in more code so that it also sends selected data to a 3rd sheet "Bookkeeping" at the same time as sending it to the "customers" sheet.
I do not need it to send the same data across just 3 cell values i.e. invoice no, invoice date and total.

thanks,

William

Hi Further to my problem I can now send the required data across to the Bookeeping sheet but I now have a problem with the value.
When the value is added inserts the formula instead of the cell value (the amount) I now know that I should be using a PasteSpecial but I am at a loss on where I need to insert it into the code.
This is the extra code that I have added

Sub BookeepingTransfer()

Dim Invoice As String, InvoiceDate As String, InvoiceAmount As String
Worksheets("Invoice").Select

Invoice = Range("H7")
Amount = Range("H44")
InvoiceDate = Range("H8")

Worksheets("Bookeeping").Select
Worksheets("Bookeeping").Range("A5").Select
If Worksheets("Bookeeping").Range("A5").Offset(1, 0) <> "" Then
Worksheets("Bookeeping").Range("A5").End(xlDown).Select

End If

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Invoice
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = InvoiceDate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = InvoiceAmount

Worksheets("Invoice").Select
Worksheets("Invoice").Range("C4").Select

End Sub

can anyone point me in the right direction?

thanks