Finding last row for data starting from cell A10

[nadeem505]

Hi Folks,

I am trying to run a macro to find last row in column A and paste the value in column H:J. I am copying value from another workbook (OldWkb) and copying it in to new workbook. (NewWkb)

My data starts from cell A10. I have left some space at the top to insert some pictures. Is it possible to find the last row for data starting from A10?

I am using this code but gives me "Run-time error '9': Subscript out of range"

Lrow = NewWkb.wks.Range("A10").CurrentRegion.Rows.Count - 'Macro drops on this line
OldWkb.ws.Range("C2:E2").Value = NewWkb.wks.Range("H" & Lrow & ":J" & Lrow).Value

Any help is much appreciated.

Please let me know if I am not clear enough.

Regards

NK

 

[alansidman]

To find the last row in Column A, I use the following code:

Range("A" & rows.count).end(xlup).row

precede the code with any worksheets required

 

[nadeem505]

Thanks, Alan.

Yes I have used this code in most of my other files. It works. But this one it drops because the data is starting in cell A10 rather than A1.

I just tried your code again to make sure but still getting the same run-time error.

Cheers

 

[DanteAmor]

You can put your complete code to see the other variables

 

[DanteAmor]

Try

[COLOR=#FF0000]Lrow = NewWkb.wks.Range("A" & rows.count).end(xlup).row
[/COLOR]if Lrow < 10 then Lrow = 10

 

[nadeem505]

Thanks, Dante and Alan.

Solved.

I hadn't declared my "NewWkb" variable properly. It worked with ActiveSheet. Will change that now.

Cheers,

NK

 

[DanteAmor]

Thanks, Dante and Alan.

Solved.

I hadn't declared my "NewWkb" variable properly. It worked with ActiveSheet. Will change that now.

Cheers,

NK

Im glad to help you, thanks for the feedback.