paste values for specific columns in second to last row

I am trying to go to the second to last column in the specified rows, then paste the value of that cell. This code returns a run time error '438' object doesn't support this property or method at the .Offset (1) line. One issue might be that below the data of the report (what I am trying to run this code on), there is a blank line then a total line. I do not want to go to that...So I think I may need to use the .End(xlDown) function, but when I tried that it did not work either...Any suggestions?

Please Login or Register  to view this content.

your post was a bit vague, so i'm not sure if this is what you want exactly, this code will go to the last cell in the columns listed
you can modify the code

ie. Range(mycolnum(I) & Lastrow).Select ---> Range(mycolnum(I) & Lastrow).offset(-2).Select
the above will select the third to last row in the given column

let me know if this is close to what you want

Please Login or Register  to view this content.

I need to go to the second to last data row in each of the specified columns then paste the values of the formulas that are in the cells. My code is getting caught up on the .Offset portion.

is there any data after the total line, if not this should work

Please Login or Register  to view this content.