Copy and paste dynamic range

**mdbct** · 04-15-2010, 10:37 AM

I'm guessing the AN column has formulas in it that can result in a blank. A formula such as:
=if A1<2,"small number,"")

Using the End(xlUp) method will find the last cell with a formula/entry. You can use the find method to find the last non blank cell.

FaultLR= Sheets("ReportSummary").Range("AN:AN").Find(what:="*", LookIn:=xlValues, _
             SearchDirection:=xlPrevious).Row

**wpryan** · 04-15-2010, 02:12 PM

Thanks for your response. You're exactly right, there are underlying formulas that are in these cells. I changed the code as you suggested by replacing the line 'FaultLR = Sheets("ReportSummary").Range("AN" & Rows.Count).End(xlUp).Row' with the line you provided but am getting an error "Run-time error '448': Named argument not found. Any ideas?