Неправильный подсчет UsedRange.Count

Резюме:Я беру ряд данных с одного листа и вставляю его в другой, однако лист будет использоваться ежедневно, когда новые данные просто вводятся под старыми данными.

Задача:При каждом новом прогоне к UsedRange.Countпоследовательно добавляется 7. Например, :при одном прогоне UsedRange.Countбудет равно 7; в следующий раз, когда я запущу функцию, количество будет 14.

Что я ищу:Почему это так и есть ли способ помочь UsedRangeбыть более точным

-Я включил всю функцию для справки.

Function eftGrabber()

        Dim usedRows As Integer
        Dim i As Integer

        ChDir "\\..."       

        Workbooks.Open Filename:= _
        "\\...\eftGrabber.xlsm"

        usedRows = Sheets("EFT").UsedRange.Count

        Windows("Data").Activate

        Sheets("DataSheet").Range("A11").EntireRow.Copy

        Windows("eftGrabber").Activate

        Sheets("EFT").Range("A" & usedRows + 1).Select

        ActiveSheet.Paste

        i = usedRows

        Do                            'THIS LOOP DELETES BLANKS AFTER POSTING NEW LINES

            Range("A" & i).Select

            If Range("A" & i) = "" Then

                ActiveCell.EntireRow.Delete

            End If

              i = i - 1

        Loop Until i = 1

        Windows("eftGrabber").Activate

        ActiveWorkbook.Save

  Windows("eftGrabber").Close

End Function

Дайте мне знать, если я упустил какие-либо важные детали. Заранее спасибо!