Dynamic Pivot Range - Still counting phantom data?

[Mr Denove]

Morning,

So the xlLastCell in the following code is still counting the last row of data prior to being deleted (hence the dynamic range).

Set StartPoint = Data_sht.Range("A1")
  
  Set DataRange = Data_sht.Range(StartPoint, StartPoint.SpecialCells(xlLastCell))
  
  NewRange = Data_sht.Name & "!" & _
  DataRange.Address(ReferenceStyle:=xlR1C1)

I found that the LastRow still seems to work as expected

x = Data_sht.Cells(Rows.Count, "A").End(xlUp).Row

However I am at a loss how I force this into the dynamic range so it uses this and not the'phantom' range that existed prior to the data being deleted and resized.

I am using datasets in excess of 180,000 rows therefore I need to find a way to make it work and can then apply to other reports also.
As always thanks in advance.
Stuart

 

[Saperblue56]

Hi,
I dont know if this is your Problem but I had the same in Excel after deleting rows then save as csv, by the Import into an other Program they were always there as Errors.

But if after deletig the rows I made a save (normal xls or xlsx) and then as CSV they were gone

Just an Idea

Ray