Delete all rows below the last row of data for import process from Access

Question

Microsoft Excel 2010: From month to month, the number of lines of data can be variable. When I paste new data into the ILS_IMPORT tab, there may be 3,500 records and the next month could be 2,500. When I go to import the data into Access, and extra 1,000 lines will appear unless I delete all records from line 2,501 on. I would like to have Excel VBA to do this and have made attempts, but nothing has worked thus far. I know that Column O will always have data to the end because it is the quarter indicator (ex. Q2).

However, this code keeps deleting the last row and I don't know if it is truly deleting all the way to the end. Can someone point me in the right direction?

 Sub test()
 Dim rng As Range
 Dim lastRow As Long


 With ThisWorkbook.Sheets("ILS_IMPORT")
    'Find anything in the cells
   Set rng = .Cells.Find(What:="*", _
                      After:=.Range("O1"), _
                      Lookat:=xlPart, _
                      LookIn:=xlFormulas, _
                      SearchOrder:=xlByRows, _
                      SearchDirection:=xlPrevious, _
                      MatchCase:=False)
    'if data is NOT found - exit from sub
    If rng Is Nothing Then Exit Sub
    'find last row
    If Application.WorksheetFunction.CountA(.Cells) <> 0 Then
        lastRow = .Cells.Find(What:="*", _
                      After:=.Range("O1"), _
                      Lookat:=xlPart, _
                      LookIn:=xlFormulas, _
                      SearchOrder:=xlByRows, _
                      SearchDirection:=xlPrevious, _
                      MatchCase:=False).Row
    Else
        lastRow = 1
    End If
    'I use lastRow + 1 to prevent deletion data above when it is on lastrow
    .Range(rng.Row + 2 & ":" & lastRow + 2).Delete Shift:=xlUp
    End With
   End Sub

Answer 1

Could you clear/delete the blank range before you paste data in?

range(cells(2,1),cells(2,1).end(xldown)).EntireRow.Clear