Finding Two Different Last Lines

[mysterious-dr-x]

So I have a code that is supposed to do the following;
'
' Template: find last line, select range & copy
' Global: open, find 1st blank line, paste, save & close
' Template: select A1
'
Now, everything seems to work fine, except that I need to find the last row of data twice, once in template, & once in global. The 2nd one is the one I have the problem with.

Having defined LR with the following* previously provided to me by JS411 (Thank you.)

With ws
     LR = .Cells.Find(What:="*", After:=.Range("A1"), _
          LookIn:=xlFormulas, SearchOrder:=xlByRows, _
          SearchDirection:=xlPrevious, MatchCase:=False).Row
      ...
      ...
      ...
End With

My question is; Do I just use the same code to redefine it in the next section, or do I need to use something other than LR & if so, what, how etc?

*Rest of code upon request, but I suspect that you wont be needing it.

 

[nightcrawler23]

I believe you have set ws to be your template workbook. in that case you will need to redifne ws.

on the other hand try using something like this.

lr =1+ Range("A" & rows.Count).End(xlUp).row

 

[mysterious-dr-x]

I'll give you more code this time. Now, obviouosly it is still a work in progress, however, what I am still wondering is, can I just ask for LR to be recalculated after I have moved to the other workbook, or do I need to use different letters other than LR or is there some other way to do it entirely???

    With ws
        LR = .Cells.Find(What:="*", After:=.Range("A1"), _
            LookIn:=xlFormulas, SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious, MatchCase:=False).Row
            
        Rows("9:" & LR).Select
        Selection.Copy

    End With
    Workbooks.Open Filename:="K:\Testing\Global3.xlsm"
    Sheets("Drawing Register").Select
    
    LR = .Cells.Find(What:="*", After:=.Range("A1"), _
        LookIn:=xlFormulas, SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious, MatchCase:=False).Row
        
    Range("A" & LR + 1).Select

P.S. ...Bump.