Dim LastRow As Long 'last row with data in any column on the sheet LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 'last row with data in column E LastRow = Cells(Rows.Count, "E").End(xlUp).Row
Select allOpen in new window
Dim FullRange as Range Set FullRange=Range("A1").CurrentRegion
Open in new window