问比较两个列表并粘贴到新列表中

EN

Sub example1()
Dim ListA As Range, ListB As Range, ListC As Range

    Range("H4:H10").Name = "ListA"
    Range("I4:I6").Name = "ListB"
    Range("J4", Range("J4").End(xlDown)).Name = "ListC"

Dim A(1 To 7), B(1 To 3), i As Integer, j As Integer

    For i = 1 To 7 'stores data in listA in array A
        A(i) = Range("ListA").Cells(i)
    Next
    For j = 1 To 3 'stores data in listB in array B
            B(j) = Range("ListB").Cells(j)
    Next

'select first from ListA and then compare data to listB
' if it is not found, stop and go to next item
'if it IS found, put in list C
Dim isfound As Boolean, letter As Variant, C(1 To 7), k As Integer

For i = 1 To 7
    isfound = False
        For j = 1 To 3
            If A(i) = B(j) Then
                isfound = True
                letter = A(i)
                Exit For
            End If
        Next
        For k = 1 To 7
        C(k) = Range("ListC").Cells(k) 'this is the part I am stuck on. How         
                                      do I get data to paste over to List C?
            If isfound = True Then
            C(k) = A(i) 'this says it will be equal to A(i) value if it is 
                         found.
            End If
        Next
Next
End Sub