VBA로 날짜 입력 (특정 조건)

안녕하세요

매크로 실행시에  특정셀 Cells(3,12) 에 다음 Working Day 일자를 입력하고 싶습니다.

평일은 Cells(3,12)=Date +1 로 표기하면 되는데, 욕심이 생겨서

금요일일 경우, 월요일 날짜를 입력하고 싶습니다.

현재 매크로는 하기처럼 짰는데 혹시 어떻게 추가해야할지 모르겠어서 ㅠㅠ

고수님들 도움 부탁드립니다!

ActiveSheet.Range("a1:aa100000").Select
Selection.Copy

ActiveSheet.Range("a1:aa100000").Select
Selection.PasteSpecial xlPasteValues

Dim co As Long, i As Long
Dim join As String
Dim buNum As String
Dim deleteRow As Integer
Dim rng As Date

rng = Date

If WorksheetFunction.Text("rng", "AAA") = "토" Then
Cells(3, 12) = Date + 3

If Nothing Then

Cells(3, 12) = Date + 1

co = ActiveSheet.Range("a5").CurrentRegion.Rows.Count

Cells(5, "a").Select

For i = 0 To co
join = Selection.Offset(0, 0)
buNum = Selection.Offset(0, 1)
If join = "0" Then
Selection.EntireRow.delete
co = co - 1
deleteRow = deleteRow + 1
Else
Selection.Offset(1, 0).Select
End If
Next
End If

End Sub