Paste to next available row - not working.

[cccbzg]

Hi,

I'm trying to copy selected rows from one worksheet to the next available row on another - something I've done before! BUT IT DOESN'T WORK! I've tried all kinds of variations, but all I get is the last of the copied rows, which makes me think it is overlaying the previous rows. I would be eternally grateful if someone could see what I'm missing.

Many thanks,
Bonnie


If COPYLINE <> "YES" Then GoTo SKIPCOPY
'**
MsgBox "output Stuff"


Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("Summary Sheet")
Set pasteSheet = Worksheets("Your Dates")
Application.ScreenUpdating = False
copySheet.Range("A" & i & ":M" & i).Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True

SKIPCOPY:
'

Next

ENDitall:

 

[JoeMo]

Your code is missing the values you want i to assume. Something like:

For i = startValue to endValue
.......
Next i

 

[cccbzg]

Your code is missing the values you want i to assume. Something like:

For i = startValue to endValue
.......
Next i

 

[cccbzg]

Hi JoeMo,

The code I sent is in a big For Next, which I'm sure it goes through since the message "Output Stuff" comes up at the appropriate times.


My output to "Your Dates" is only the last of the rows that should be copied, so I'm assuming the others are being overwritten.

Thanks for taking the time to look at my code.

Thanks,
Bonnie

 

[cccbzg]

Shouldn't Offset(1) move to the next row?

 

[JoeMo]

Shouldn't Offset(1) move to the next row?

Using Offset(1), your posted code will paste to the cell below the last filled cell in col A.

 

[cccbzg]

Using Offset(1), your posted code will paste to the cell below the last filled cell in col A.

THAT'S my problem...A is empty!!! Duh.

Thanks!!!

 

[JoeMo]

THAT'S my problem...A is empty!!! Duh.

Thanks!!!

You are welcome - thanks for the reply.

 

[cccbzg]

You are welcome - thanks for the reply.