Как мне получить функцию для вставки данных, исключая при этом любые конечные пустые ячейки?

Question

У меня здесь есть функция, которая иногда работает, а иногда она отказывается работать и обрабатывает диапазоны, которые я использую, как если бы они не существовали. Мне нужна эта функция для вставки данных из источника (столбец таблицы) в цель (другой столбец таблицы), при этом исключая любые пробелы в конце. В копируемых данных будут пробелы, поэтому функция должна только устранять пробелы, которые в конце.

Function Paste_Col_Data_No_Trail(strSrcTbl As String, strSrcCol As String, strTarTbl As String, strTarCol As String)
    Dim rngSrc As Range
    Dim rngTar As Range

    Set rngSrc = Range(strSrcTbl).ListObject.ListColumns(strSrcCol).DataBodyRange
    Set rngTar = Range(strTarTbl).ListObject.ListColumns(strTarCol).DataBodyRange

    For i = rngSrc.Count To 1 Step -1
        If IsEmpty(rngSrc(i)) = False Then
            Range(rngSrc(1), rngSrc(i)).Copy
'This line is where the error is being thrown
            rngTar(1).PasteSpecial Paste:=xlPasteValues           
            i = 1
        End If
    Next i   
End Function

Этот код работал для большинства исполнений, но теперь он необъяснимым образом выдает 1004 ошибки. Насколько я понимаю, это означало бы, что диапазоны, которые я использовал (rngSrc и rngTar), больше не распознаются.