Как удалить пробелы после формулы

Question

Я пытаюсь создать макрос Match, который сравнивает два списка и дает мне ячейки, присутствующие только в одном из списков.Затем ячейки копируются на другой лист, где подсчитываются ячейки.Тем не менее, пустые ячейки также копируются, и я не знаю почему.Вот что у меня есть:

Sub Macro_do_Match()

Dim CopyrangeB As String
Dim lRowB As Integer
Dim fRowB As Integer
Dim CopyrangeD As String
Dim lRowD As Integer
Dim fRowD As Integer
Dim rng As Range

' Defines range for column B

lRowB = Cells(Rows.Count, 1).End(xlUp).Row
fRowB = 2

Let CopyrangeB = "B" & fRowB & ":" & "B" & lRowB

' "macro"

    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(NOT(ISERROR(MATCH(C[-1],C[1],0)))=FALSE,C[-1], """")"
    Range("B2").Select
    Selection.AutoFill Destination:=Range(CopyrangeB)

' Defines range for column D

lRowD = Cells(Rows.Count, 3).End(xlUp).Row
fRowD = 2

Let CopyrangeD = "D" & fRowD & ":" & "D" & lRowD

' "macro"

    Range("D2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(NOT(ISERROR(MATCH(C[-1],C[-3],0)))=FALSE,C[-1], """")"
    Range("D2").Select
    Selection.AutoFill Destination:=Range(CopyrangeD)

'Copy and paste B

    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Final Results").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'Copy and paste D

    Sheets("Insert Lists").Select
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Final Results").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False