I thank you VERY much.
Rowan's suggestion worked very well....but your worked even
better....because your APPENDS (I did not ask for that but it sure fit my
requirement)Many thanks

"Jim Thomlinson" wrote in message
...
opps... use this...

Sub CopyStuff()
Dim wksFrom As Worksheet
Dim wksTo As Worksheet
Dim rngFrom As Range
Dim rngTo As Range

Set wksFrom = Sheets("Sheet1")
Set wksTo = Sheets("Sheet2")
Set rngFrom = wksFrom.Range(wksFrom.Cells(Rows.Count, "A").End(xlUp), _
wksFrom.Range("I1"))
Set rngTo = wksTo.Cells(Rows.Count, "A").End(xlUp).offset(1,0)

rngFrom.Copy rngTo

End Sub

--
HTH...

Jim Thomlinson


"Jim Thomlinson" wrote:

This code copeis from sheet 1 and appends to sheet 2...

Sub CopyStuff()
Dim wksFrom As Worksheet
Dim wksTo As Worksheet
Dim rngFrom As Range
Dim rngTo As Range

Set wksFrom = Sheets("Sheet1")
Set wksTo = Sheets("Sheet2")
Set rngFrom = wksFrom.Range(wksFrom.Cells(Rows.Count, "A").End(xlUp),
_
wksFrom.Range("I1"))
Set rngTo = wksTo.Cells(Rows.Count, "A").End(xlUp)

rngFrom.Copy rngTo

End Sub
--
HTH...

Jim Thomlinson


"PCOR" wrote:

Hi
I have data in col a/b/c/d/e/f/g/h and I
I would like to have a macro that will copy this data: the catch: the
bottom
row varies from week to week. Some times it is row 25 and the following
week
it could be row 40.
I want to copy that data to an other sheet
Help would be appreciated.