Copy and Paste problem where data dissappears! 1

[advox1]

Hi

I am trying to copy data from one sheet to another using VBA. However when I have copied the data and move to the sheet I want to paste into I first have to find the first blank row.

When this has been done and I ask for the data to paste it has dissappeared.

Does anyone have a solution for this?

Thanks

Joanne

 

[xlbo]

please post the code you are using - I would suggest tha you should use a construct like this though

lRow = sheets("SheetToCopyTo&quot.range("A65536&quot.end(xlup).row

Sheets("SheetToCopyFrom&quot.range("CopyRange&quot.copy destination:= sheets("SheetToCopyTo&quot.range("A" & lRow)

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244

 

[advox1]

Thanks

The code I am using is below, however I cannot use the xlup as the data has to start from cell A28 and search down from that point for the next blank row.

Also I have previously filtered the info on the Jan 04 sheet so I am prob only copying a max of 10 rows of data.


Sheets("SEARCH&quot.Select
Range("A28&quot.Select
nrow = 1
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
nrow = nrow + 1
Loop
ActiveCell.Select
Sheets("jan 04&quot.Select
Range("A2:N801&quot.Select
Selection.Copy
Sheets("search&quot.Select
Selection.Paste

Any help would be appreciated.

Thanks

 

[advox1]

Thanks xlbo

I have modified what you gave me and it now works a treat!

Jo