Copy And Paste on Another Sheet ( next time paste data from empty row )

[HaroonSid]

I Copy data from range ("D61:D500")and paste it on another Sheets("OF C") and Range("C3")

Suppose first time i select range ("D61:D71")and paste it on another Sheets("OF C") and Range("C3:C13")
next time i select range ("D61:D65") and paste is on Sheets("OF C") then

the data should be paste Start range ("C14:C18")

{ code something like = Range(Selection, Selection.End(xlTop)).Select }

plz help to solve this problem

Original code is :

Please Login or Register  to view this content.

and this one what i m trying to doing :

Please Login or Register  to view this content.

[HaHoBe]

Hi, haroon2015,

Target is part of an event and you would need to tell us how and what that Variable is in order to understand the code.

Please Login or Register  to view this content.

Ciao,
Holger

[patel45]

Please Login or Register  to view this content.

[HaHoBe]

Hi, patel45,

youīre baffling me. Could you share what Target is because when I try to run the code in a module Target isnīt reckognized and Empty?

And you should go to the target sheet before you try to get the first free row. Itīs a beginnerīs error to do so on the active sheet and may lead to trouble and overwriting in TOīs sheets.

Ciao,
Holger

[HaroonSid]

thanx for reply both

but sorry patel45

HaHoBe's code is working very well and as i wanted.........


thanx a lot once again
haroon2015

[HaroonSid]

Hello Sir
there is little problem

when i m running this code
i want my data paste start from ("Blank cell")

but data is pasting from cell ("C85") while cell ("C3:C84") Is Blank

Please Login or Register  to view this content.

[HaHoBe]

Hi, haroon2015,

without seeing your workbook Iīd like to say that the cells arenīt empty when they get copied over. Maybe check the length of the contents of any empty cell by using

Please Login or Register  to view this content.

or attach a (sample) workbook for us to have a look.

Ciao,
Holger