Copy and paste issue

[Craig1]

Hi All,
I use some code (courtesy of the forum) but it has one little glitch in that I would like to repair if possible.

The code copies a couple of functions in some cells and pastes them into columns K & L where the new info has just been inputted.
The issue is that if I pull across from rows 15 thru to 30 it inputs the functions into rows 14 thru to 30. It just seems to be that one row up each time. I have tried ammending the code but no luck so far.
The code is:-

Dim LASTROW As Long
Dim lastrow2 As Long

LASTROW = Cells(Rows.Count, 1).End(xlUp).Row
lastrow2 = Cells(Rows.Count, 11).End(xlUp).Row
Range("K1:L1").Copy
Range("K" & lastrow2 & ":L" & LASTROW).Select
Selection.PasteSpecial Paste:=xlPasteFormulas

Any help would be appreciated.

Craig.

 

[Leith Ross]

Hello Craig1,

I would check that both Lastrow and Lastrow2 have the same value.

Sincerely,
Leith Ross

 

[Craig1]

Leith, thanks for the quick reply. Not sure what you mean "same value".
I have just tried changing them both to the same last row and one inserted the functions a row above my data and the 2nd trial inputted the functions at the bottom of my data on the last row.

Craig.

 

[Leith Ross]

Hello Craig1,

I am little mystified by why you are finding the ends of both rows. Shouldn't they end at the same row? Is your starting row always 15 or does it change?

Sincerely,
Leith Ross

 

[Craig1]

Leith, it changes all the time. It all depends how many rows I copy across from another workbook. Sometimes it may be 15 rows or it could be 150 rows. The code always does what I want except it also copies the functions from K1 & L1 into the row above.

Craig.

 

[Dryver14]

the elngh of your last rows are dependent on the column number so Lastrow is counting how many rows have info in A:A try changeing the 1 to 12 where it says (rows.count, 1)

 

[Craig1]

Thanks for the reply Dryver14.
When I changed to your suggestion it only inserted the functions into the above my data.

Craig

 

[Dryver14]

what is above where you are pasting because this seems to be going to row 1

 

[Craig1]

Dryver14,
This is why I need to stop it because it is causing problem in the row above when the auto filter is on (usually all the time) and the panes are frozen at this point.

Craig.

 

[Dryver14]

ah ha

think I know what you are getting at now

at the end of the lines for lastrow = and lastrow2 =

put +1 after the .Row