Falsche Deklarierung der Var. "C"

Wie muss ich C richtig deklarieren?

Sub Datum_anpassen()
Dim Material, Datum As Date, C As Range

Application.ScreenUpdating = False
Cells.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Range("W:W").Copy Range("X:X")

For C = Range("B2") To Range("B" & Range("B65536").End(xlUp).Row)
    With C
        If C.Offset(1, 0).Value = C.Value Then
            If C.Offset(0, 22) = "" Then
                If C.Offset(1, 22) <> "" Then
                    C.Offset(0, 22) = C.Offset(1, 22)
                End If
            End If
            If C.Offset(0, 22) < C.Offset(1, 22) Then
               C.Offset(0, 22) = C.Offset(1, 22)
            End If
            If C.Offset(0, 22) > C.Offset(1, 22) Then
               C.Offset(1, 22) = C.Offset(1, 20)
            End If
        End If
    End With
Next C

End Sub