Find Last Row Containing Text

This may be easy but I'm completely stumped right now.

I'm writing a macro that sets print areas automatically from a button. There's one sheet that the rows will change everytime, anywhere from 10 lines to 250 lines.

Is there code that will find the last row containing text?

Re: Find Last Row Containing Text

All,

Sorry I've been gone all week so today is the first day I've been able to work on my program. I've found that the last two help the most when used in the macro so I had to go with that. Thanks for all your help it works perfect.

Re: Find Last Row Containing Text

I actually had two rows that I could use to count, one with Item numbers and the other descriptions so I actually ended up using code from PCI and RichardSchollar to make it work

Here's my code for any one needing it

Dim myrow As String
    Dim PageTwo As Range
 
    'Selects Page 2
    Sheets(2).Select
    'Finds last row with data in it and then adds 3 blanks rows
    myrow = Range("A65536").End(xlUp).Row + 3
    'Just used to make sure myrow is working - will delete once everything is good
    MsgBox ("my range is $A$7:$D$" & myrow)
    'Sets Print Area of BOM
    Set PageTwo = ActiveSheet.Range("$A$7:$D$" & myrow)

This was actually used to find the last row with data in it so that I could set a print region in a sheet that changed everytime it was used

Thanks for all your help