Incorporating the LastRow function into a Pivot Table

[ShawnTMc]

Hello,

I am very very new to creating macros. I'm trying to incorporate the Last Row function into my pivot table but I have no clue how to. The code I'm using is below. I am using Excel 2013.

Dim LR As Long
LR = ActiveSheet.Range("E:E").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Import Worksheet!R1C1:R1000C18", Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="Table!R3C1", TableName:="PivotTable2" _
, DefaultVersion:=xlPivotTableVersion10

Thank you for any help