Please check my code & tell me where i'm doing it wrong. Cant make it work. Small code. Thanks

[pedie]

I dont know why my code does not leave a row before pasting....
please check where is it wrong.
Thanks ped

sub try1()
Selection.Copy
          Sheets("Data").Select
          Range("b2").Select
          Do Until ActiveCell.Value = ""
          ' i have place (1,0) to leave 1 row before pasting...
          ActiveCell.Offset(1, 0).Select
          Loop
activesheet.paste
end sub

 

[Norie]

pedie

How can somebody redesign the code without knowing what it's meant to do?

I can, and probably will, rewrite the code to get rid of the Select etc but I can't guarantee it'll do what you want.

Sub try1()

    Sheets("Sheet1").Range("B2").CurrentRegion.Copy
    Sheets("Data").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme

End Sub

 

[lenze]

Pedie, with 400 + posts, you've got to stop using Select

Sub CopyMe()
Sheet(Sheets1).CurrentRegion.Copy Sheets("Data").Range("B" & Cells(Rows.Count, "B").End(xlUp).Row +1)
End Sub

ONE LINE
You might need 2 lines if you're doing a PasteSpecial
lenze

 

[pedie]

Thanks everyone!

Now it worked....All because you guys helped...!!!!

My dad says 'm MAD with excel these days...

Thanks again!!!

 

[meldoc]

Pedie

See the links, I think that you will find them very useful.

http://www.tushar-mehta.com/excel/vba/beyond_the_macro_recorder/index.htm

http://msdn.microsoft.com/en-us/library/aa139976(office.10).aspx

 

[pedie]

Brian...thank you so much...I didnt get time the other day to check in back. That was vry helpfull. If anyone sees then check out the second link it is very usefull...yea only for person like me...