Hi,
How can I copy the content of Sheet1 of another sheet to my sheet1 of my
current sheet?

Many thnaks,
Dan

At a very simple level, this should do what you want - change the workbook
names & ranges to copy from / to as required:

Sub CopyData()

With Workbooks("Book2").Worksheets("Sheet1")
.Range("B2:I10").Copy
End With

With ThisWorkbook.Worksheets("Sheet1")
.Paste Destination:=.Range("B2")
End With

Application.CutCopyMode = False
End Sub

I would also suggest that you visit Ron's site for more informed guidance on
copying data between workbooks.
http://www.rondebruin.nl/tips.htm
--
jb


"Dan" wrote:

Hi,
How can I copy the content of Sheet1 of another sheet to my sheet1 of my
current sheet?

Many thnaks,
Dan