Pessoal, estou precisando de uma ajuda, tenho uma planilha com contas, seus vencimentos e o status (ok ou pendente).

Preciso que a macro corra as contas e se o status for pendente e a diferença entre o vencimento e a celula C1 que possui a função Hoje seja menor que 2 ele pinte a celula do vencimento de vermelho, se for igual a dois pintar de laranja.
Tentei fazer o seguinte código mas falhou:

Sub vencimento()

ThisWorkbook.Worksheets("plan1").Select
Range("a3").Select

Do While Not IsEmpty(ActiveCell)

If ActiveCell.Offset(0, 1) = "pendente" And DateDiff("d", Range("c1"), ActiveCell.Offset(0, 2)) < 2 Then
ActiveCell.Offset(0, 2).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(0, -2).Select
    ActiveCell.Offset(1, 0).Select
ElseIf ActiveCell.Offset(0, 1) = "pendente" And DateDiff("d", Range("c1"), ActiveCell.Offset(0, 2)) = 2 Then
    ActiveCell.Offset(0, 2).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(0, -2).Select
    ActiveCell.Offset(1, 0).Select

Else
    ActiveCell.Offset(1, 0).Select
End If

Loop
End Sub

Agradeço o apoio.