Checksum between sheet's.

Goddag alle eksperter.
Jeg er netop nu løbet ind i et ekstra lille problem på et tidligere stillet spørgsmål.

Jeg har fået lavet en lille regneark makro, som kan checke tal op mod hinanden...
Filen kan hentes her: http://rapidshare.com/files/152369106/Test_til_eksp.xls.html   

Mit problem er nu at jeg ikke kan få den til at checke de tal op som er i sheet 1... Da der godt kan være flere tal i den ene end der er i den anden, skal den checke op på begge ark.

I sheet 1 er I positive tal, og J negative tal.
I sheet 2 er tallene lavet med betegnelser. (collum C)   

Koden ser lige nu sådan ud.
Option Explicit

Public Sub Tjek()
    Dim Data1 As Variant, Data2 As Variant, I As Long, J As Long, RW As Long
    RW = Application.WorksheetFunction.Max(Sheets("Sheet1").[I65536].End(xlUp).Row, Sheets("Sheet1").[J65536].End(xlUp).Row)
    Data1 = Sheets("Sheet1").Range("i1:j" & RW)    ' læser 2 kolonner ind i Data1

    For I = 1 To UBound(Data1)
        If Not IsEmpty(Data1(I, 2)) Then
            Data1(I, 1) = Data1(I, 2) * -1    ' flytter negative værdier over i kolonne I, som  minusværdier
        End If
    Next

    RW = Sheets("Sheet2").[C65536].End(xlUp).Row  ' tjekker antal date i ark2 C kolonnen
    Data2 = Sheets("Sheet2").Range("C1:C" & RW)  'læser det ind i Data2

    For I = 1 To UBound(Data1)
        For J = 1 To RW
            If Data2(J, 1) = Data1(I, 1) Then
                Data2(J, 1) = 0    ' tjekker dem op imod hinanden
                Exit For
            End If
        Next
    Next
    Sheets("Sheet2").Range("D1:D" & RW) = Data2    ' skriver resultatet i d kolonnen ark2
End Sub


Det virker skam ganske fint, men skal bare have den til også at checke op i sheet 1. så den også skriver 0'er hvis de går op der.