VBA: Loop through cells in matrix and return column- and row headers

I'm struggling with a piece of code I'm working on.

I want to loop through each cell of one table and compare their column headers (text) and row headers (dates) with the contents of another table.

Currently my code looks like this:

Sub test()

    Dim cDummy          As Object
    Dim rvDummy         As Date
    Dim cvDummy         As Long
    
    Dim c1Historik      As Object
    Dim c2Historik      As Date
        
    For Each cDummy In Range("rDummy")
        rvDummy = Range(cDummy).End(xlToLeft).Value 'Here is my break-point
        cvDummy = Range(cDummy).End(xlUp).Value
        
        For Each c1Historik In Range("Historik_start")
            c2Historik = Range(c1Historik).Offset(0, 1).Value
            If Range(c1Historik).Offset(0, -1).Value = cvDummy Then
                If c1Historik.Value <= rvDummy And c2Historik >= rvDummy Then
                    cDummy = 3
                End If
            End If
        Next c1Historik
    Next cDummy

End Sub

Any help and suggestions are much appreciated!

Thanks; I see where I got it wrong! For good measure; here is the final and working code:

Sub test()

    Dim cDummy          As Range
    Dim rvDummy         As Date
    Dim cvDummy         As String
    
    Dim c1Historik      As Range
    Dim c2Historik      As Date
        
    For Each cDummy In Range("rDummy")
        On Error Resume Next
            rvDummy = cDummy.End(xlToLeft).Value
            cvDummy = cDummy.End(xlUp).Value
        
            For Each c1Historik In Range("Historik_start")
                c2Historik = c1Historik.Offset(0, 1).Value
                If c1Historik.Offset(0, -1).Value = cvDummy Then
                    If DateValue(c1Historik.Value) <= DateValue(rvDummy) And DateValue(c2Historik) >= DateValue(rvDummy) Then
                        cDummy = 3
                    End If
                End If
            Next c1Historik
        On Error GoTo 0
    Next cDummy

End Sub