VBAで稼働日を求めたい件についてお世話になっております。
http://knowledge.livedoor.com/34674

ちょっと要件を変えて３稼働日前を出したいのですがうまくいきません。

３稼働日前がでるつもりで計算をしているのですが何故か3稼働日以上マイナスしてしまっています。
また閏年の所を空欄にしているのですが空欄にしてしまうためおかしくなってしまいます。
どなたかご教示ください。
下記に作ったファイルをアップしてあります。



Private Sub CommandButton2_Click()

Dim Count As Integer
Dim k As Long
Dim n As Long

n = 12

Do While Cells(n, 7) <> ""
k = DateDiff("d", Range("D12"), Cells(n, 7)) - 2
Count = 0

Do
If Cells(k, 6) <> "休" Then
Count = Count + 1

If Count = 3 Then
If IsDate(Cells(k, 7)) Then
Cells(n, 8) = Cells(k, 4)
End If

Exit Do

End If
End If

k = k + 1
Loop

n = n + 1
Loop


End Sub