A very simple method if you want to copy just the values from a range on one
sheet1 to other sheets (in the example sheet2 and sheet3) follows.....

Sub CopyMultiple()

Sheets("Sheet1").Range("A2:H15").Copy

Sheets("Sheet2").Range("A2").PasteSpecial Paste:=xlPasteValues

Sheets("Sheet3").Range("A2").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

End Sub

Cheers
Nigel

"Doria/Warris" wrote in message
...
Hi,

I have one excel sheet with10columns and in every of them I need to enter
values that are contained in another table (different format, but columns
have same header name).
Since I have to do this job for more tables, instead of picking up the
values manually and paste them in the sheet, I'd like to automate the
process.

Can anybody help?

Thank you
Alex