Copy to lastrow

[MOB]

Nice simple code below - copies to the last non blank row.

However I have numerous rows that appear blank, but have formulae in them which make them blank (IF statements with ="")

Is there a way to amend the code so it ignores the "" cells?

Thanks

Sub Copy()

lastrow = Cells(Rows.Count, 1).End(xlUp).Row

Range("A4:J" & lastrow).Copy
    
End Sub

 

[Peter_SSs]

Try

lastrow = Columns("A").Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row

BTW, not a good idea to name a procedure using one of vba's 'special' words (eg Copy)

 

[MOB]

Thanks, worked perfectly

I tend not to use the "special" words, this one slipped past me!

 

[Peter_SSs]

Thanks, worked perfectly

Good news.