worksheets("A4:D5").Copy _
Destination:=worksheets("Sheet2").Cells(rows.count ,1).End(xlup)(2)
worksheets("A4:D5").Copy _
Destination:=worksheets("Sheet3").Cells(rows.count ,1).End(xlup)(2)

--
Regards,
Tom Ogilvy

"Dan" wrote in message
...
I am trying to set up a macro to copy info from one sheet
to multiple sheet but in the next available slot. Example
Copy sheet1 data A5 to d5 and paste it to sheet 2 & 3 for
the next available A? on sheets 2 & 3