Procedure too long.

eGeeked

New Member
Joined
Mar 26, 2012
Messages
2
Unfortunately I do not know how to shorten what I want to do. I have included tags to explain what each section does. This is for personal use to record my time worked on different projects throughout the day. Click the cell that says record on any given day and it calculates % of productivity and records the items in the daily tracker section to hidden cells so they can be recalled at a later date to check out things I had done before. Thank you for your assitance in helping me making this code shorter so it will work properly.

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Record Day 1
If Target.Row = 6 And Target.Column = 6 Then
Range("c6") = Range("k28")
Range("b61") = Range("j9")
Range("c61") = Range("k9")
Range("d61") = Range("j10")
Range("e61") = Range("k10")
Range("f61") = Range("j11")
Range("g61") = Range("k11")
Range("h61") = Range("j12")
Range("i61") = Range("k12")
Range("j61") = Range("j13")
Range("k61") = Range("k13")
Range("l61") = Range("j14")
Range("m61") = Range("k14")
Range("n61") = Range("j15")
Range("o61") = Range("k15")
Range("p61") = Range("j16")
Range("q61") = Range("k16")
Range("r61") = Range("j17")
Range("s61") = Range("k17")
Range("t61") = Range("j18")
Range("u61") = Range("k18")
Range("v61") = Range("j19")
Range("w61") = Range("k19")
Range("x61") = Range("j20")
Range("y61") = Range("k20")
Range("z61") = Range("j21")
Range("aa61") = Range("k21")
Range("ab61") = Range("j22")
Range("ac61") = Range("k22")
Range("ad61") = Range("j23")
Range("ae61") = Range("k23")
Range("af61") = Range("j24")
Range("ag61") = Range("k24")
Range("ah61") = Range("j25")
Range("ai61") = Range("k25")
Range("aj61") = Range("j26")
Range("ak61") = Range("k26")
End If
'Recall Day 1
If Target.Row = 6 And Target.Column = 7 Then
Range("j9") = Range("b61")
Range("k9") = Range("c61")
Range("j10") = Range("d61")
Range("k10") = Range("e61")
Range("j11") = Range("f61")
Range("k11") = Range("g61")
Range("j12") = Range("h61")
Range("k12") = Range("i61")
Range("j13") = Range("j61")
Range("k13") = Range("k61")
Range("j14") = Range("l61")
Range("k14") = Range("m61")
Range("j15") = Range("n61")
Range("k15") = Range("o61")
Range("j16") = Range("p61")
Range("k16") = Range("q61")
Range("j17") = Range("r61")
Range("k17") = Range("s61")
Range("j18") = Range("t61")
Range("k18") = Range("u61")
Range("j19") = Range("v61")
Range("k19") = Range("w61")
Range("j20") = Range("x61")
Range("k20") = Range("y61")
Range("j21") = Range("z61")
Range("k21") = Range("aa61")
Range("j22") = Range("ab61")
Range("k22") = Range("ac61")
Range("j23") = Range("ad61")
Range("k23") = Range("ae61")
Range("j24") = Range("af61")
Range("k24") = Range("ag61")
Range("j25") = Range("ah61")
Range("k25") = Range("ai61")
Range("j26") = Range("aj61")
Range("k26") = Range("ak61")
End If

'Record Day 2
If Target.Row = 7 And Target.Column = 6 Then
Range("c7") = Range("k28")
Range("b62") = Range("j9")
Range("c62") = Range("k9")
Range("d62") = Range("j10")
Range("e62") = Range("k10")
Range("f62") = Range("j11")
Range("g62") = Range("k11")
Range("h62") = Range("j12")
Range("i62") = Range("k12")
Range("j62") = Range("j13")
Range("k62") = Range("k13")
Range("l62") = Range("j14")
Range("m62") = Range("k14")
Range("n62") = Range("j15")
Range("o62") = Range("k15")
Range("p62") = Range("j16")
Range("q62") = Range("k16")
Range("r62") = Range("j17")
Range("s62") = Range("k17")
Range("t62") = Range("j18")
Range("u62") = Range("k18")
Range("v62") = Range("j19")
Range("w62") = Range("k19")
Range("x62") = Range("j20")
Range("y62") = Range("k20")
Range("z62") = Range("j21")
Range("aa62") = Range("k21")
Range("ab62") = Range("j22")
Range("ac62") = Range("k22")
Range("ad62") = Range("j23")
Range("ae62") = Range("k23")
Range("af62") = Range("j24")
Range("ag62") = Range("k24")
Range("ah62") = Range("j25")
Range("ai62") = Range("k25")
Range("aj62") = Range("j26")
Range("ak62") = Range("k26")
End If
'Recall Day 2
If Target.Row = 7 And Target.Column = 7 Then
Range("j9") = Range("b62")
Range("k9") = Range("c62")
Range("j10") = Range("d62")
Range("k10") = Range("e62")
Range("j11") = Range("f62")
Range("k11") = Range("g62")
Range("j12") = Range("h62")
Range("k12") = Range("i62")
Range("j13") = Range("j62")
Range("k13") = Range("k62")
Range("j14") = Range("l62")
Range("k14") = Range("m62")
Range("j15") = Range("n62")
Range("k15") = Range("o62")
Range("j16") = Range("p62")
Range("k16") = Range("q62")
Range("j17") = Range("r62")
Range("k17") = Range("s62")
Range("j18") = Range("t62")
Range("k18") = Range("u62")
Range("j19") = Range("v62")
Range("k19") = Range("w62")
Range("j20") = Range("x62")
Range("k20") = Range("y62")
Range("j21") = Range("z62")
Range("k21") = Range("aa62")
Range("j22") = Range("ab62")
Range("k22") = Range("ac62")
Range("j23") = Range("ad62")
Range("k23") = Range("ae62")
Range("j24") = Range("af62")
Range("k24") = Range("ag62")
Range("j25") = Range("ah62")
Range("k25") = Range("ai62")
Range("j26") = Range("aj62")
Range("k26") = Range("ak62")
End If

'Record Day 3
If Target.Row = 8 And Target.Column = 6 Then
Range("c8") = Range("k28")
Range("b63") = Range("j9")
Range("c63") = Range("k9")
Range("d63") = Range("j10")
Range("e63") = Range("k10")
Range("f63") = Range("j11")
Range("g63") = Range("k11")
Range("h63") = Range("j12")
Range("i63") = Range("k12")
Range("j63") = Range("j13")
Range("k63") = Range("k13")
Range("l63") = Range("j14")
Range("m63") = Range("k14")
Range("n63") = Range("j15")
Range("o63") = Range("k15")
Range("p63") = Range("j16")
Range("q63") = Range("k16")
Range("r63") = Range("j17")
Range("s63") = Range("k17")
Range("t63") = Range("j18")
Range("u63") = Range("k18")
Range("v63") = Range("j19")
Range("w63") = Range("k19")
Range("x63") = Range("j20")
Range("y63") = Range("k20")
Range("z63") = Range("j21")
Range("aa63") = Range("k21")
Range("ab63") = Range("j22")
Range("ac63") = Range("k22")
Range("ad63") = Range("j23")
Range("ae63") = Range("k23")
Range("af63") = Range("j24")
Range("ag63") = Range("k24")
Range("ah63") = Range("j25")
Range("ai63") = Range("k25")
Range("aj63") = Range("j26")
Range("ak63") = Range("k26")
End If
'Recall Day 3
If Target.Row = 8 And Target.Column = 7 Then
Range("j9") = Range("b63")
Range("k9") = Range("c63")
Range("j10") = Range("d63")
Range("k10") = Range("e63")
Range("j11") = Range("f63")
Range("k11") = Range("g63")
Range("j12") = Range("h63")
Range("k12") = Range("i63")
Range("j13") = Range("j63")
Range("k13") = Range("k63")
Range("j14") = Range("l63")
Range("k14") = Range("m63")
Range("j15") = Range("n63")
Range("k15") = Range("o63")
Range("j16") = Range("p63")
Range("k16") = Range("q63")
Range("j17") = Range("r63")
Range("k17") = Range("s63")
Range("j18") = Range("t63")
Range("k18") = Range("u63")
Range("j19") = Range("v63")
Range("k19") = Range("w63")
Range("j20") = Range("x63")
Range("k20") = Range("y63")
Range("j21") = Range("z63")
Range("k21") = Range("aa63")
Range("j22") = Range("ab63")
Range("k22") = Range("ac63")
Range("j23") = Range("ad63")
Range("k23") = Range("ae63")
Range("j24") = Range("af63")
Range("k24") = Range("ag63")
Range("j25") = Range("ah63")
Range("k25") = Range("ai63")
Range("j26") = Range("aj63")
Range("k26") = Range("ak63")
End If

'Record Day 4
If Target.Row = 9 And Target.Column = 6 Then
Range("c9") = Range("k28")
Range("b64") = Range("j9")
Range("c64") = Range("k9")
Range("d64") = Range("j10")
Range("e64") = Range("k10")
Range("f64") = Range("j11")
Range("g64") = Range("k11")
Range("h64") = Range("j12")
Range("i64") = Range("k12")
Range("j64") = Range("j13")
Range("k64") = Range("k13")
Range("l64") = Range("j14")
Range("m64") = Range("k14")
Range("n64") = Range("j15")
Range("o64") = Range("k15")
Range("p64") = Range("j16")
Range("q64") = Range("k16")
Range("r64") = Range("j17")
Range("s64") = Range("k17")
Range("t64") = Range("j18")
Range("u64") = Range("k18")
Range("v64") = Range("j19")
Range("w64") = Range("k19")
Range("x64") = Range("j20")
Range("y64") = Range("k20")
Range("z64") = Range("j21")
Range("aa64") = Range("k21")
Range("ab64") = Range("j22")
Range("ac64") = Range("k22")
Range("ad64") = Range("j23")
Range("ae64") = Range("k23")
Range("af64") = Range("j24")
Range("ag64") = Range("k24")
Range("ah64") = Range("j25")
Range("ai64") = Range("k25")
Range("aj64") = Range("j26")
Range("ak64") = Range("k26")
End If
'Recall Day 4
If Target.Row = 9 And Target.Column = 7 Then
Range("j9") = Range("b64")
Range("k9") = Range("c64")
Range("j10") = Range("d64")
Range("k10") = Range("e64")
Range("j11") = Range("f64")
Range("k11") = Range("g64")
Range("j12") = Range("h64")
Range("k12") = Range("i64")
Range("j13") = Range("j64")
Range("k13") = Range("k64")
Range("j14") = Range("l64")
Range("k14") = Range("m64")
Range("j15") = Range("n64")
Range("k15") = Range("o64")
Range("j16") = Range("p64")
Range("k16") = Range("q64")
Range("j17") = Range("r64")
Range("k17") = Range("s64")
Range("j18") = Range("t64")
Range("k18") = Range("u64")
Range("j19") = Range("v64")
Range("k19") = Range("w64")
Range("j20") = Range("x64")
Range("k20") = Range("y64")
Range("j21") = Range("z64")
Range("k21") = Range("aa64")
Range("j22") = Range("ab64")
Range("k22") = Range("ac64")
Range("j23") = Range("ad64")
Range("k23") = Range("ae64")
Range("j24") = Range("af64")
Range("k24") = Range("ag64")
Range("j25") = Range("ah64")
Range("k25") = Range("ai64")
Range("j26") = Range("aj64")
Range("k26") = Range("ak64")
End If

'Record Day 5
If Target.Row = 10 And Target.Column = 6 Then
Range("c10") = Range("k28")
Range("b65") = Range("j9")
Range("c65") = Range("k9")
Range("d65") = Range("j10")
Range("e65") = Range("k10")
Range("f65") = Range("j11")
Range("g65") = Range("k11")
Range("h65") = Range("j12")
Range("i65") = Range("k12")
Range("j65") = Range("j13")
Range("k65") = Range("k13")
Range("l65") = Range("j14")
Range("m65") = Range("k14")
Range("n65") = Range("j15")
Range("o65") = Range("k15")
Range("p65") = Range("j16")
Range("q65") = Range("k16")
Range("r65") = Range("j17")
Range("s65") = Range("k17")
Range("t65") = Range("j18")
Range("u65") = Range("k18")
Range("v65") = Range("j19")
Range("w65") = Range("k19")
Range("x65") = Range("j20")
Range("y65") = Range("k20")
Range("z65") = Range("j21")
Range("aa65") = Range("k21")
Range("ab65") = Range("j22")
Range("ac65") = Range("k22")
Range("ad65") = Range("j23")
Range("ae65") = Range("k23")
Range("af65") = Range("j24")
Range("ag65") = Range("k24")
Range("ah65") = Range("j25")
Range("ai65") = Range("k25")
Range("aj65") = Range("j26")
Range("ak65") = Range("k26")
End If
'Recall Day 5
If Target.Row = 10 And Target.Column = 7 Then
Range("j9") = Range("b65")
Range("k9") = Range("c65")
Range("j10") = Range("d65")
Range("k10") = Range("e65")
Range("j11") = Range("f65")
Range("k11") = Range("g65")
Range("j12") = Range("h65")
Range("k12") = Range("i65")
Range("j13") = Range("j65")
Range("k13") = Range("k65")
Range("j14") = Range("l65")
Range("k14") = Range("m65")
Range("j15") = Range("n65")
Range("k15") = Range("o65")
Range("j16") = Range("p65")
Range("k16") = Range("q65")
Range("j17") = Range("r65")
Range("k17") = Range("s65")
Range("j18") = Range("t65")
Range("k18") = Range("u65")
Range("j19") = Range("v65")
Range("k19") = Range("w65")
Range("j20") = Range("x65")
Range("k20") = Range("y65")
Range("j21") = Range("z65")
Range("k21") = Range("aa65")
Range("j22") = Range("ab65")
Range("k22") = Range("ac65")
Range("j23") = Range("ad65")
Range("k23") = Range("ae65")
Range("j24") = Range("af65")
Range("k24") = Range("ag65")
Range("j25") = Range("ah65")
Range("k25") = Range("ai65")
Range("j26") = Range("aj65")
Range("k26") = Range("ak65")
End If

'Record Day 6
If Target.Row = 11 And Target.Column = 6 Then
Range("c11") = Range("k28")
Range("b66") = Range("j9")
Range("c66") = Range("k9")
Range("d66") = Range("j10")
Range("e66") = Range("k10")
Range("f66") = Range("j11")
Range("g66") = Range("k11")
Range("h66") = Range("j12")
Range("i66") = Range("k12")
Range("j66") = Range("j13")
Range("k66") = Range("k13")
Range("l66") = Range("j14")
Range("m66") = Range("k14")
Range("n66") = Range("j15")
Range("o66") = Range("k15")
Range("p66") = Range("j16")
Range("q66") = Range("k16")
Range("r66") = Range("j17")
Range("s66") = Range("k17")
Range("t66") = Range("j18")
Range("u66") = Range("k18")
Range("v66") = Range("j19")
Range("w66") = Range("k19")
Range("x66") = Range("j20")
Range("y66") = Range("k20")
Range("z66") = Range("j21")
Range("aa66") = Range("k21")
Range("ab66") = Range("j22")
Range("ac66") = Range("k22")
Range("ad66") = Range("j23")
Range("ae66") = Range("k23")
Range("af66") = Range("j24")
Range("ag66") = Range("k24")
Range("ah66") = Range("j25")
Range("ai66") = Range("k25")
Range("aj66") = Range("j26")
Range("ak66") = Range("k26")
End If
'Recall Day 6
If Target.Row = 11 And Target.Column = 7 Then
Range("j9") = Range("b66")
Range("k9") = Range("c66")
Range("j10") = Range("d66")
Range("k10") = Range("e66")
Range("j11") = Range("f66")
Range("k11") = Range("g66")
Range("j12") = Range("h66")
Range("k12") = Range("i66")
Range("j13") = Range("j66")
Range("k13") = Range("k66")
Range("j14") = Range("l66")
Range("k14") = Range("m66")
Range("j15") = Range("n66")
Range("k15") = Range("o66")
Range("j16") = Range("p66")
Range("k16") = Range("q66")
Range("j17") = Range("r66")
Range("k17") = Range("s66")
Range("j18") = Range("t66")
Range("k18") = Range("u66")
Range("j19") = Range("v66")
Range("k19") = Range("w66")
Range("j20") = Range("x66")
Range("k20") = Range("y66")
Range("j21") = Range("z66")
Range("k21") = Range("aa66")
Range("j22") = Range("ab66")
Range("k22") = Range("ac66")
Range("j23") = Range("ad66")
Range("k23") = Range("ae66")
Range("j24") = Range("af66")
Range("k24") = Range("ag66")
Range("j25") = Range("ah66")
Range("k25") = Range("ai66")
Range("j26") = Range("aj66")
Range("k26") = Range("ak66")
End If

'Record Day 7
If Target.Row = 12 And Target.Column = 6 Then
Range("c12") = Range("k28")
Range("b67") = Range("j9")
Range("c67") = Range("k9")
Range("d67") = Range("j10")
Range("e67") = Range("k10")
Range("f67") = Range("j11")
Range("g67") = Range("k11")
Range("h67") = Range("j12")
Range("i67") = Range("k12")
Range("j67") = Range("j13")
Range("k67") = Range("k13")
Range("l67") = Range("j14")
Range("m67") = Range("k14")
Range("n67") = Range("j15")
Range("o67") = Range("k15")
Range("p67") = Range("j16")
Range("q67") = Range("k16")
Range("r67") = Range("j17")
Range("s67") = Range("k17")
Range("t67") = Range("j18")
Range("u67") = Range("k18")
Range("v67") = Range("j19")
Range("w67") = Range("k19")
Range("x67") = Range("j20")
Range("y67") = Range("k20")
Range("z67") = Range("j21")
Range("aa67") = Range("k21")
Range("ab67") = Range("j22")
Range("ac67") = Range("k22")
Range("ad67") = Range("j23")
Range("ae67") = Range("k23")
Range("af67") = Range("j24")
Range("ag67") = Range("k24")
Range("ah67") = Range("j25")
Range("ai67") = Range("k25")
Range("aj67") = Range("j26")
Range("ak67") = Range("k26")
End If
'Recall Day 7
If Target.Row = 12 And Target.Column = 7 Then
Range("j9") = Range("b67")
Range("k9") = Range("c67")
Range("j10") = Range("d67")
Range("k10") = Range("e67")
Range("j11") = Range("f67")
Range("k11") = Range("g67")
Range("j12") = Range("h67")
Range("k12") = Range("i67")
Range("j13") = Range("j67")
Range("k13") = Range("k67")
Range("j14") = Range("l67")
Range("k14") = Range("m67")
Range("j15") = Range("n67")
Range("k15") = Range("o67")
Range("j16") = Range("p67")
Range("k16") = Range("q67")
Range("j17") = Range("r67")
Range("k17") = Range("s67")
Range("j18") = Range("t67")
Range("k18") = Range("u67")
Range("j19") = Range("v67")
Range("k19") = Range("w67")
Range("j20") = Range("x67")
Range("k20") = Range("y67")
Range("j21") = Range("z67")
Range("k21") = Range("aa67")
Range("j22") = Range("ab67")
Range("k22") = Range("ac67")
Range("j23") = Range("ad67")
Range("k23") = Range("ae67")
Range("j24") = Range("af67")
Range("k24") = Range("ag67")
Range("j25") = Range("ah67")
Range("k25") = Range("ai67")
Range("j26") = Range("aj67")
Range("k26") = Range("ak67")
End If

'Record Day 8
If Target.Row = 13 And Target.Column = 6 Then
Range("c13") = Range("k28")
Range("b68") = Range("j9")
Range("c68") = Range("k9")
Range("d68") = Range("j10")
Range("e68") = Range("k10")
Range("f68") = Range("j11")
Range("g68") = Range("k11")
Range("h68") = Range("j12")
Range("i68") = Range("k12")
Range("j68") = Range("j13")
Range("k68") = Range("k13")
Range("l68") = Range("j14")
Range("m68") = Range("k14")
Range("n68") = Range("j15")
Range("o68") = Range("k15")
Range("p68") = Range("j16")
Range("q68") = Range("k16")
Range("r68") = Range("j17")
Range("s68") = Range("k17")
Range("t68") = Range("j18")
Range("u68") = Range("k18")
Range("v68") = Range("j19")
Range("w68") = Range("k19")
Range("x68") = Range("j20")
Range("y68") = Range("k20")
Range("z68") = Range("j21")
Range("aa68") = Range("k21")
Range("ab68") = Range("j22")
Range("ac68") = Range("k22")
Range("ad68") = Range("j23")
Range("ae68") = Range("k23")
Range("af68") = Range("j24")
Range("ag68") = Range("k24")
Range("ah68") = Range("j25")
Range("ai68") = Range("k25")
Range("aj68") = Range("j26")
Range("ak68") = Range("k26")
End If
'Recall Day 8
If Target.Row = 13 And Target.Column = 7 Then
Range("j9") = Range("b68")
Range("k9") = Range("c68")
Range("j10") = Range("d68")
Range("k10") = Range("e68")
Range("j11") = Range("f68")
Range("k11") = Range("g68")
Range("j12") = Range("h68")
Range("k12") = Range("i68")
Range("j13") = Range("j68")
Range("k13") = Range("k68")
Range("j14") = Range("l68")
Range("k14") = Range("m68")
Range("j15") = Range("n68")
Range("k15") = Range("o68")
Range("j16") = Range("p68")
Range("k16") = Range("q68")
Range("j17") = Range("r68")
Range("k17") = Range("s68")
Range("j18") = Range("t68")
Range("k18") = Range("u68")
Range("j19") = Range("v68")
Range("k19") = Range("w68")
Range("j20") = Range("x68")
Range("k20") = Range("y68")
Range("j21") = Range("z68")
Range("k21") = Range("aa68")
Range("j22") = Range("ab68")
Range("k22") = Range("ac68")
Range("j23") = Range("ad68")
Range("k23") = Range("ae68")
Range("j24") = Range("af68")
Range("k24") = Range("ag68")
Range("j25") = Range("ah68")
Range("k25") = Range("ai68")
Range("j26") = Range("aj68")
Range("k26") = Range("ak68")
End If

'Record Day 9
If Target.Row = 14 And Target.Column = 6 Then
Range("c14") = Range("k28")
Range("b69") = Range("j9")
Range("c69") = Range("k9")
Range("d69") = Range("j10")
Range("e69") = Range("k10")
Range("f69") = Range("j11")
Range("g69") = Range("k11")
Range("h69") = Range("j12")
Range("i69") = Range("k12")
Range("j69") = Range("j13")
Range("k69") = Range("k13")
Range("l69") = Range("j14")
Range("m69") = Range("k14")
Range("n69") = Range("j15")
Range("o69") = Range("k15")
Range("p69") = Range("j16")
Range("q69") = Range("k16")
Range("r69") = Range("j17")
Range("s69") = Range("k17")
Range("t69") = Range("j18")
Range("u69") = Range("k18")
Range("v69") = Range("j19")
Range("w69") = Range("k19")
Range("x69") = Range("j20")
Range("y69") = Range("k20")
Range("z69") = Range("j21")
Range("aa69") = Range("k21")
Range("ab69") = Range("j22")
Range("ac69") = Range("k22")
Range("ad69") = Range("j23")
Range("ae69") = Range("k23")
Range("af69") = Range("j24")
Range("ag69") = Range("k24")
Range("ah69") = Range("j25")
Range("ai69") = Range("k25")
Range("aj69") = Range("j26")
Range("ak69") = Range("k26")
End If
'Recall Day 9
If Target.Row = 14 And Target.Column = 7 Then
Range("j9") = Range("b69")
Range("k9") = Range("c69")
Range("j10") = Range("d69")
Range("k10") = Range("e69")
Range("j11") = Range("f69")
Range("k11") = Range("g69")
Range("j12") = Range("h69")
Range("k12") = Range("i69")
Range("j13") = Range("j69")
Range("k13") = Range("k69")
Range("j14") = Range("l69")
Range("k14") = Range("m69")
Range("j15") = Range("n69")
Range("k15") = Range("o69")
Range("j16") = Range("p69")
Range("k16") = Range("q69")
Range("j17") = Range("r69")
Range("k17") = Range("s69")
Range("j18") = Range("t69")
Range("k18") = Range("u69")
Range("j19") = Range("v69")
Range("k19") = Range("w69")
Range("j20") = Range("x69")
Range("k20") = Range("y69")
Range("j21") = Range("z69")
Range("k21") = Range("aa69")
Range("j22") = Range("ab69")
Range("k22") = Range("ac69")
Range("j23") = Range("ad69")
Range("k23") = Range("ae69")
Range("j24") = Range("af69")
Range("k24") = Range("ag69")
Range("j25") = Range("ah69")
Range("k25") = Range("ai69")
Range("j26") = Range("aj69")
Range("k26") = Range("ak69")
End If

'Record Day 10
If Target.Row = 15 And Target.Column = 6 Then
Range("c15") = Range("k28")
Range("b70") = Range("j9")
Range("c70") = Range("k9")
Range("d70") = Range("j10")
Range("e70") = Range("k10")
Range("f70") = Range("j11")
Range("g70") = Range("k11")
Range("h70") = Range("j12")
Range("i70") = Range("k12")
Range("j70") = Range("j13")
Range("k70") = Range("k13")
Range("l70") = Range("j14")
Range("m70") = Range("k14")
Range("n70") = Range("j15")
Range("o70") = Range("k15")
Range("p70") = Range("j16")
Range("q70") = Range("k16")
Range("r70") = Range("j17")
Range("s70") = Range("k17")
Range("t70") = Range("j18")
Range("u70") = Range("k18")
Range("v70") = Range("j19")
Range("w70") = Range("k19")
Range("x70") = Range("j20")
Range("y70") = Range("k20")
Range("z70") = Range("j21")
Range("aa70") = Range("k21")
Range("ab70") = Range("j22")
Range("ac70") = Range("k22")
Range("ad70") = Range("j23")
Range("ae70") = Range("k23")
Range("af70") = Range("j24")
Range("ag70") = Range("k24")
Range("ah70") = Range("j25")
Range("ai70") = Range("k25")
Range("aj70") = Range("j26")
Range("ak70") = Range("k26")
End If
'Recall Day 10
If Target.Row = 15 And Target.Column = 7 Then
Range("j9") = Range("b70")
Range("k9") = Range("c70")
Range("j10") = Range("d70")
Range("k10") = Range("e70")
Range("j11") = Range("f70")
Range("k11") = Range("g70")
Range("j12") = Range("h70")
Range("k12") = Range("i70")
Range("j13") = Range("j70")
Range("k13") = Range("k70")
Range("j14") = Range("l70")
Range("k14") = Range("m70")
Range("j15") = Range("n70")
Range("k15") = Range("o70")
Range("j16") = Range("p70")
Range("k16") = Range("q70")
Range("j17") = Range("r70")
Range("k17") = Range("s70")
Range("j18") = Range("t70")
Range("k18") = Range("u70")
Range("j19") = Range("v70")
Range("k19") = Range("w70")
Range("j20") = Range("x70")
Range("k20") = Range("y70")
Range("j21") = Range("z70")
Range("k21") = Range("aa70")
Range("j22") = Range("ab70")
Range("k22") = Range("ac70")
Range("j23") = Range("ad70")
Range("k23") = Range("ae70")
Range("j24") = Range("af70")
Range("k24") = Range("ag70")
Range("j25") = Range("ah70")
Range("k25") = Range("ai70")
Range("j26") = Range("aj70")
Range("k26") = Range("ak70")
End If

'Record Day 11
If Target.Row = 16 And Target.Column = 6 Then
Range("c16") = Range("k28")
Range("b71") = Range("j9")
Range("c71") = Range("k9")
Range("d71") = Range("j10")
Range("e71") = Range("k10")
Range("f71") = Range("j11")
Range("g71") = Range("k11")
Range("h71") = Range("j12")
Range("i71") = Range("k12")
Range("j71") = Range("j13")
Range("k71") = Range("k13")
Range("l71") = Range("j14")
Range("m71") = Range("k14")
Range("n71") = Range("j15")
Range("o71") = Range("k15")
Range("p71") = Range("j16")
Range("q71") = Range("k16")
Range("r71") = Range("j17")
Range("s71") = Range("k17")
Range("t71") = Range("j18")
Range("u71") = Range("k18")
Range("v71") = Range("j19")
Range("w71") = Range("k19")
Range("x71") = Range("j20")
Range("y71") = Range("k20")
Range("z71") = Range("j21")
Range("aa71") = Range("k21")
Range("ab71") = Range("j22")
Range("ac71") = Range("k22")
Range("ad71") = Range("j23")
Range("ae71") = Range("k23")
Range("af71") = Range("j24")
Range("ag71") = Range("k24")
Range("ah71") = Range("j25")
Range("ai71") = Range("k25")
Range("aj71") = Range("j26")
Range("ak71") = Range("k26")
End If
'Recall Day 11
If Target.Row = 16 And Target.Column = 7 Then
Range("j9") = Range("b71")
Range("k9") = Range("c71")
Range("j10") = Range("d71")
Range("k10") = Range("e71")
Range("j11") = Range("f71")
Range("k11") = Range("g71")
Range("j12") = Range("h71")
Range("k12") = Range("i71")
Range("j13") = Range("j71")
Range("k13") = Range("k71")
Range("j14") = Range("l71")
Range("k14") = Range("m71")
Range("j15") = Range("n71")
Range("k15") = Range("o71")
Range("j16") = Range("p71")
Range("k16") = Range("q71")
Range("j17") = Range("r71")
Range("k17") = Range("s71")
Range("j18") = Range("t71")
Range("k18") = Range("u71")
Range("j19") = Range("v71")
Range("k19") = Range("w71")
Range("j20") = Range("x71")
Range("k20") = Range("y71")
Range("j21") = Range("z71")
Range("k21") = Range("aa71")
Range("j22") = Range("ab71")
Range("k22") = Range("ac71")
Range("j23") = Range("ad71")
Range("k23") = Range("ae71")
Range("j24") = Range("af71")
Range("k24") = Range("ag71")
Range("j25") = Range("ah71")
Range("k25") = Range("ai71")
Range("j26") = Range("aj71")
Range("k26") = Range("ak71")
End If

'Record Day 12
If Target.Row = 17 And Target.Column = 6 Then
Range("c17") = Range("k28")
Range("b72") = Range("j9")
Range("c72") = Range("k9")
Range("d72") = Range("j10")
Range("e72") = Range("k10")
Range("f72") = Range("j11")
Range("g72") = Range("k11")
Range("h72") = Range("j12")
Range("i72") = Range("k12")
Range("j72") = Range("j13")
Range("k72") = Range("k13")
Range("l72") = Range("j14")
Range("m72") = Range("k14")
Range("n72") = Range("j15")
Range("o72") = Range("k15")
Range("p72") = Range("j16")
Range("q72") = Range("k16")
Range("r72") = Range("j17")
Range("s72") = Range("k17")
Range("t72") = Range("j18")
Range("u72") = Range("k18")
Range("v72") = Range("j19")
Range("w72") = Range("k19")
Range("x72") = Range("j20")
Range("y72") = Range("k20")
Range("z72") = Range("j21")
Range("aa72") = Range("k21")
Range("ab72") = Range("j22")
Range("ac72") = Range("k22")
Range("ad72") = Range("j23")
Range("ae72") = Range("k23")
Range("af72") = Range("j24")
Range("ag72") = Range("k24")
Range("ah72") = Range("j25")
Range("ai72") = Range("k25")
Range("aj72") = Range("j26")
Range("ak72") = Range("k26")
End If
'Recall Day 12
If Target.Row = 17 And Target.Column = 7 Then
Range("j9") = Range("b72")
Range("k9") = Range("c72")
Range("j10") = Range("d72")
Range("k10") = Range("e72")
Range("j11") = Range("f72")
Range("k11") = Range("g72")
Range("j12") = Range("h72")
Range("k12") = Range("i72")
Range("j13") = Range("j72")
Range("k13") = Range("k72")
Range("j14") = Range("l72")
Range("k14") = Range("m72")
Range("j15") = Range("n72")
Range("k15") = Range("o72")
Range("j16") = Range("p72")
Range("k16") = Range("q72")
Range("j17") = Range("r72")
Range("k17") = Range("s72")
Range("j18") = Range("t72")
Range("k18") = Range("u72")
Range("j19") = Range("v72")
Range("k19") = Range("w72")
Range("j20") = Range("x72")
Range("k20") = Range("y72")
Range("j21") = Range("z72")
Range("k21") = Range("aa72")
Range("j22") = Range("ab72")
Range("k22") = Range("ac72")
Range("j23") = Range("ad72")
Range("k23") = Range("ae72")
Range("j24") = Range("af72")
Range("k24") = Range("ag72")
Range("j25") = Range("ah72")
Range("k25") = Range("ai72")
Range("j26") = Range("aj72")
Range("k26") = Range("ak72")
End If

'Record Day 13
If Target.Row = 18 And Target.Column = 6 Then
Range("c18") = Range("k28")
Range("b73") = Range("j9")
Range("c73") = Range("k9")
Range("d73") = Range("j10")
Range("e73") = Range("k10")
Range("f73") = Range("j11")
Range("g73") = Range("k11")
Range("h73") = Range("j12")
Range("i73") = Range("k12")
Range("j73") = Range("j13")
Range("k73") = Range("k13")
Range("l73") = Range("j14")
Range("m73") = Range("k14")
Range("n73") = Range("j15")
Range("o73") = Range("k15")
Range("p73") = Range("j16")
Range("q73") = Range("k16")
Range("r73") = Range("j17")
Range("s73") = Range("k17")
Range("t73") = Range("j18")
Range("u73") = Range("k18")
Range("v73") = Range("j19")
Range("w73") = Range("k19")
Range("x73") = Range("j20")
Range("y73") = Range("k20")
Range("z73") = Range("j21")
Range("aa73") = Range("k21")
Range("ab73") = Range("j22")
Range("ac73") = Range("k22")
Range("ad73") = Range("j23")
Range("ae73") = Range("k23")
Range("af73") = Range("j24")
Range("ag73") = Range("k24")
Range("ah73") = Range("j25")
Range("ai73") = Range("k25")
Range("aj73") = Range("j26")
Range("ak73") = Range("k26")
End If
'Recall Day 13
If Target.Row = 18 And Target.Column = 7 Then
Range("j9") = Range("b73")
Range("k9") = Range("c73")
Range("j10") = Range("d73")
Range("k10") = Range("e73")
Range("j11") = Range("f73")
Range("k11") = Range("g73")
Range("j12") = Range("h73")
Range("k12") = Range("i73")
Range("j13") = Range("j73")
Range("k13") = Range("k73")
Range("j14") = Range("l73")
Range("k14") = Range("m73")
Range("j15") = Range("n73")
Range("k15") = Range("o73")
Range("j16") = Range("p73")
Range("k16") = Range("q73")
Range("j17") = Range("r73")
Range("k17") = Range("s73")
Range("j18") = Range("t73")
Range("k18") = Range("u73")
Range("j19") = Range("v73")
Range("k19") = Range("w73")
Range("j20") = Range("x73")
Range("k20") = Range("y73")
Range("j21") = Range("z73")
Range("k21") = Range("aa73")
Range("j22") = Range("ab73")
Range("k22") = Range("ac73")
Range("j23") = Range("ad73")
Range("k23") = Range("ae73")
Range("j24") = Range("af73")
Range("k24") = Range("ag73")
Range("j25") = Range("ah73")
Range("k25") = Range("ai73")
Range("j26") = Range("aj73")
Range("k26") = Range("ak73")
End If

'Record Day 14
If Target.Row = 19 And Target.Column = 6 Then
Range("c19") = Range("k28")
Range("b74") = Range("j9")
Range("c74") = Range("k9")
Range("d74") = Range("j10")
Range("e74") = Range("k10")
Range("f74") = Range("j11")
Range("g74") = Range("k11")
Range("h74") = Range("j12")
Range("i74") = Range("k12")
Range("j74") = Range("j13")
Range("k74") = Range("k13")
Range("l74") = Range("j14")
Range("m74") = Range("k14")
Range("n74") = Range("j15")
Range("o74") = Range("k15")
Range("p74") = Range("j16")
Range("q74") = Range("k16")
Range("r74") = Range("j17")
Range("s74") = Range("k17")
Range("t74") = Range("j18")
Range("u74") = Range("k18")
Range("v74") = Range("j19")
Range("w74") = Range("k19")
Range("x74") = Range("j20")
Range("y74") = Range("k20")
Range("z74") = Range("j21")
Range("aa74") = Range("k21")
Range("ab74") = Range("j22")
Range("ac74") = Range("k22")
Range("ad74") = Range("j23")
Range("ae74") = Range("k23")
Range("af74") = Range("j24")
Range("ag74") = Range("k24")
Range("ah74") = Range("j25")
Range("ai74") = Range("k25")
Range("aj74") = Range("j26")
Range("ak74") = Range("k26")
End If
'Recall Day 14
If Target.Row = 19 And Target.Column = 7 Then
Range("j9") = Range("b74")
Range("k9") = Range("c74")
Range("j10") = Range("d74")
Range("k10") = Range("e74")
Range("j11") = Range("f74")
Range("k11") = Range("g74")
Range("j12") = Range("h74")
Range("k12") = Range("i74")
Range("j13") = Range("j74")
Range("k13") = Range("k74")
Range("j14") = Range("l74")
Range("k14") = Range("m74")
Range("j15") = Range("n74")
Range("k15") = Range("o74")
Range("j16") = Range("p74")
Range("k16") = Range("q74")
Range("j17") = Range("r74")
Range("k17") = Range("s74")
Range("j18") = Range("t74")
Range("k18") = Range("u74")
Range("j19") = Range("v74")
Range("k19") = Range("w74")
Range("j20") = Range("x74")
Range("k20") = Range("y74")
Range("j21") = Range("z74")
Range("k21") = Range("aa74")
Range("j22") = Range("ab74")
Range("k22") = Range("ac74")
Range("j23") = Range("ad74")
Range("k23") = Range("ae74")
Range("j24") = Range("af74")
Range("k24") = Range("ag74")
Range("j25") = Range("ah74")
Range("k25") = Range("ai74")
Range("j26") = Range("aj74")
Range("k26") = Range("ak74")
End If

'Record Day 15
If Target.Row = 20 And Target.Column = 6 Then
Range("c20") = Range("k28")
Range("b75") = Range("j9")
Range("c75") = Range("k9")
Range("d75") = Range("j10")
Range("e75") = Range("k10")
Range("f75") = Range("j11")
Range("g75") = Range("k11")
Range("h75") = Range("j12")
Range("i75") = Range("k12")
Range("j75") = Range("j13")
Range("k75") = Range("k13")
Range("l75") = Range("j14")
Range("m75") = Range("k14")
Range("n75") = Range("j15")
Range("o75") = Range("k15")
Range("p75") = Range("j16")
Range("q75") = Range("k16")
Range("r75") = Range("j17")
Range("s75") = Range("k17")
Range("t75") = Range("j18")
Range("u75") = Range("k18")
Range("v75") = Range("j19")
Range("w75") = Range("k19")
Range("x75") = Range("j20")
Range("y75") = Range("k20")
Range("z75") = Range("j21")
Range("aa75") = Range("k21")
Range("ab75") = Range("j22")
Range("ac75") = Range("k22")
Range("ad75") = Range("j23")
Range("ae75") = Range("k23")
Range("af75") = Range("j24")
Range("ag75") = Range("k24")
Range("ah75") = Range("j25")
Range("ai75") = Range("k25")
Range("aj75") = Range("j26")
Range("ak75") = Range("k26")
End If
'Recall Day 15
If Target.Row = 20 And Target.Column = 7 Then
Range("j9") = Range("b75")
Range("k9") = Range("c75")
Range("j10") = Range("d75")
Range("k10") = Range("e75")
Range("j11") = Range("f75")
Range("k11") = Range("g75")
Range("j12") = Range("h75")
Range("k12") = Range("i75")
Range("j13") = Range("j75")
Range("k13") = Range("k75")
Range("j14") = Range("l75")
Range("k14") = Range("m75")
Range("j15") = Range("n75")
Range("k15") = Range("o75")
Range("j16") = Range("p75")
Range("k16") = Range("q75")
Range("j17") = Range("r75")
Range("k17") = Range("s75")
Range("j18") = Range("t75")
Range("k18") = Range("u75")
Range("j19") = Range("v75")
Range("k19") = Range("w75")
Range("j20") = Range("x75")
Range("k20") = Range("y75")
Range("j21") = Range("z75")
Range("k21") = Range("aa75")
Range("j22") = Range("ab75")
Range("k22") = Range("ac75")
Range("j23") = Range("ad75")
Range("k23") = Range("ae75")
Range("j24") = Range("af75")
Range("k24") = Range("ag75")
Range("j25") = Range("ah75")
Range("k25") = Range("ai75")
Range("j26") = Range("aj75")
Range("k26") = Range("ak75")
End If

'Record Day 16
If Target.Row = 21 And Target.Column = 6 Then
Range("c21") = Range("k28")
Range("b76") = Range("j9")
Range("c76") = Range("k9")
Range("d76") = Range("j10")
Range("e76") = Range("k10")
Range("f76") = Range("j11")
Range("g76") = Range("k11")
Range("h76") = Range("j12")
Range("i76") = Range("k12")
Range("j76") = Range("j13")
Range("k76") = Range("k13")
Range("l76") = Range("j14")
Range("m76") = Range("k14")
Range("n76") = Range("j15")
Range("o76") = Range("k15")
Range("p76") = Range("j16")
Range("q76") = Range("k16")
Range("r76") = Range("j17")
Range("s76") = Range("k17")
Range("t76") = Range("j18")
Range("u76") = Range("k18")
Range("v76") = Range("j19")
Range("w76") = Range("k19")
Range("x76") = Range("j20")
Range("y76") = Range("k20")
Range("z76") = Range("j21")
Range("aa76") = Range("k21")
Range("ab76") = Range("j22")
Range("ac76") = Range("k22")
Range("ad76") = Range("j23")
Range("ae76") = Range("k23")
Range("af76") = Range("j24")
Range("ag76") = Range("k24")
Range("ah76") = Range("j25")
Range("ai76") = Range("k25")
Range("aj76") = Range("j26")
Range("ak76") = Range("k26")
End If
'Recall Day 16
If Target.Row = 21 And Target.Column = 7 Then
Range("j9") = Range("b76")
Range("k9") = Range("c76")
Range("j10") = Range("d76")
Range("k10") = Range("e76")
Range("j11") = Range("f76")
Range("k11") = Range("g76")
Range("j12") = Range("h76")
Range("k12") = Range("i76")
Range("j13") = Range("j76")
Range("k13") = Range("k76")
Range("j14") = Range("l76")
Range("k14") = Range("m76")
Range("j15") = Range("n76")
Range("k15") = Range("o76")
Range("j16") = Range("p76")
Range("k16") = Range("q76")
Range("j17") = Range("r76")
Range("k17") = Range("s76")
Range("j18") = Range("t76")
Range("k18") = Range("u76")
Range("j19") = Range("v76")
Range("k19") = Range("w76")
Range("j20") = Range("x76")
Range("k20") = Range("y76")
Range("j21") = Range("z76")
Range("k21") = Range("aa76")
Range("j22") = Range("ab76")
Range("k22") = Range("ac76")
Range("j23") = Range("ad76")
Range("k23") = Range("ae76")
Range("j24") = Range("af76")
Range("k24") = Range("ag76")
Range("j25") = Range("ah76")
Range("k25") = Range("ai76")
Range("j26") = Range("aj76")
Range("k26") = Range("ak76")
End If

'Record Day 17
If Target.Row = 22 And Target.Column = 6 Then
Range("c22") = Range("k28")
Range("b77") = Range("j9")
Range("c77") = Range("k9")
Range("d77") = Range("j10")
Range("e77") = Range("k10")
Range("f77") = Range("j11")
Range("g77") = Range("k11")
Range("h77") = Range("j12")
Range("i77") = Range("k12")
Range("j77") = Range("j13")
Range("k77") = Range("k13")
Range("l77") = Range("j14")
Range("m77") = Range("k14")
Range("n77") = Range("j15")
Range("o77") = Range("k15")
Range("p77") = Range("j16")
Range("q77") = Range("k16")
Range("r77") = Range("j17")
Range("s77") = Range("k17")
Range("t77") = Range("j18")
Range("u77") = Range("k18")
Range("v77") = Range("j19")
Range("w77") = Range("k19")
Range("x77") = Range("j20")
Range("y77") = Range("k20")
Range("z77") = Range("j21")
Range("aa77") = Range("k21")
Range("ab77") = Range("j22")
Range("ac77") = Range("k22")
Range("ad77") = Range("j23")
Range("ae77") = Range("k23")
Range("af77") = Range("j24")
Range("ag77") = Range("k24")
Range("ah77") = Range("j25")
Range("ai77") = Range("k25")
Range("aj77") = Range("j26")
Range("ak77") = Range("k26")
End If
'Recall Day 17
If Target.Row = 22 And Target.Column = 7 Then
Range("j9") = Range("b77")
Range("k9") = Range("c77")
Range("j10") = Range("d77")
Range("k10") = Range("e77")
Range("j11") = Range("f77")
Range("k11") = Range("g77")
Range("j12") = Range("h77")
Range("k12") = Range("i77")
Range("j13") = Range("j77")
Range("k13") = Range("k77")
Range("j14") = Range("l77")
Range("k14") = Range("m77")
Range("j15") = Range("n77")
Range("k15") = Range("o77")
Range("j16") = Range("p77")
Range("k16") = Range("q77")
Range("j17") = Range("r77")
Range("k17") = Range("s77")
Range("j18") = Range("t77")
Range("k18") = Range("u77")
Range("j19") = Range("v77")
Range("k19") = Range("w77")
Range("j20") = Range("x77")
Range("k20") = Range("y77")
Range("j21") = Range("z77")
Range("k21") = Range("aa77")
Range("j22") = Range("ab77")
Range("k22") = Range("ac77")
Range("j23") = Range("ad77")
Range("k23") = Range("ae77")
Range("j24") = Range("af77")
Range("k24") = Range("ag77")
Range("j25") = Range("ah77")
Range("k25") = Range("ai77")
Range("j26") = Range("aj77")
Range("k26") = Range("ak77")
End If

'Record Day 18
If Target.Row = 23 And Target.Column = 6 Then
Range("c23") = Range("k28")
Range("b78") = Range("j9")
Range("c78") = Range("k9")
Range("d78") = Range("j10")
Range("e78") = Range("k10")
Range("f78") = Range("j11")
Range("g78") = Range("k11")
Range("h78") = Range("j12")
Range("i78") = Range("k12")
Range("j78") = Range("j13")
Range("k78") = Range("k13")
Range("l78") = Range("j14")
Range("m78") = Range("k14")
Range("n78") = Range("j15")
Range("o78") = Range("k15")
Range("p78") = Range("j16")
Range("q78") = Range("k16")
Range("r78") = Range("j17")
Range("s78") = Range("k17")
Range("t78") = Range("j18")
Range("u78") = Range("k18")
Range("v78") = Range("j19")
Range("w78") = Range("k19")
Range("x78") = Range("j20")
Range("y78") = Range("k20")
Range("z78") = Range("j21")
Range("aa78") = Range("k21")
Range("ab78") = Range("j22")
Range("ac78") = Range("k22")
Range("ad78") = Range("j23")
Range("ae78") = Range("k23")
Range("af78") = Range("j24")
Range("ag78") = Range("k24")
Range("ah78") = Range("j25")
Range("ai78") = Range("k25")
Range("aj78") = Range("j26")
Range("ak78") = Range("k26")
End If
'Recall Day 18
If Target.Row = 23 And Target.Column = 7 Then
Range("j9") = Range("b78")
Range("k9") = Range("c78")
Range("j10") = Range("d78")
Range("k10") = Range("e78")
Range("j11") = Range("f78")
Range("k11") = Range("g78")
Range("j12") = Range("h78")
Range("k12") = Range("i78")
Range("j13") = Range("j78")
Range("k13") = Range("k78")
Range("j14") = Range("l78")
Range("k14") = Range("m78")
Range("j15") = Range("n78")
Range("k15") = Range("o78")
Range("j16") = Range("p78")
Range("k16") = Range("q78")
Range("j17") = Range("r78")
Range("k17") = Range("s78")
Range("j18") = Range("t78")
Range("k18") = Range("u78")
Range("j19") = Range("v78")
Range("k19") = Range("w78")
Range("j20") = Range("x78")
Range("k20") = Range("y78")
Range("j21") = Range("z78")
Range("k21") = Range("aa78")
Range("j22") = Range("ab78")
Range("k22") = Range("ac78")
Range("j23") = Range("ad78")
Range("k23") = Range("ae78")
Range("j24") = Range("af78")
Range("k24") = Range("ag78")
Range("j25") = Range("ah78")
Range("k25") = Range("ai78")
Range("j26") = Range("aj78")
Range("k26") = Range("ak78")
End If

'Record Day 19
If Target.Row = 24 And Target.Column = 6 Then
Range("c24") = Range("k28")
Range("b79") = Range("j9")
Range("c79") = Range("k9")
Range("d79") = Range("j10")
Range("e79") = Range("k10")
Range("f79") = Range("j11")
Range("g79") = Range("k11")
Range("h79") = Range("j12")
Range("i79") = Range("k12")
Range("j79") = Range("j13")
Range("k79") = Range("k13")
Range("l79") = Range("j14")
Range("m79") = Range("k14")
Range("n79") = Range("j15")
Range("o79") = Range("k15")
Range("p79") = Range("j16")
Range("q79") = Range("k16")
Range("r79") = Range("j17")
Range("s79") = Range("k17")
Range("t79") = Range("j18")
Range("u79") = Range("k18")
Range("v79") = Range("j19")
Range("w79") = Range("k19")
Range("x79") = Range("j20")
Range("y79") = Range("k20")
Range("z79") = Range("j21")
Range("aa79") = Range("k21")
Range("ab79") = Range("j22")
Range("ac79") = Range("k22")
Range("ad79") = Range("j23")
Range("ae79") = Range("k23")
Range("af79") = Range("j24")
Range("ag79") = Range("k24")
Range("ah79") = Range("j25")
Range("ai79") = Range("k25")
Range("aj79") = Range("j26")
Range("ak79") = Range("k26")
End If
'Recall Day 19
If Target.Row = 24 And Target.Column = 7 Then
Range("j9") = Range("b79")
Range("k9") = Range("c79")
Range("j10") = Range("d79")
Range("k10") = Range("e79")
Range("j11") = Range("f79")
Range("k11") = Range("g79")
Range("j12") = Range("h79")
Range("k12") = Range("i79")
Range("j13") = Range("j79")
Range("k13") = Range("k79")
Range("j14") = Range("l79")
Range("k14") = Range("m79")
Range("j15") = Range("n79")
Range("k15") = Range("o79")
Range("j16") = Range("p79")
Range("k16") = Range("q79")
Range("j17") = Range("r79")
Range("k17") = Range("s79")
Range("j18") = Range("t79")
Range("k18") = Range("u79")
Range("j19") = Range("v79")
Range("k19") = Range("w79")
Range("j20") = Range("x79")
Range("k20") = Range("y79")
Range("j21") = Range("z79")
Range("k21") = Range("aa79")
Range("j22") = Range("ab79")
Range("k22") = Range("ac79")
Range("j23") = Range("ad79")
Range("k23") = Range("ae79")
Range("j24") = Range("af79")
Range("k24") = Range("ag79")
Range("j25") = Range("ah79")
Range("k25") = Range("ai79")
Range("j26") = Range("aj79")
Range("k26") = Range("ak79")
End If

'Record Day 20
If Target.Row = 25 And Target.Column = 6 Then
Range("c25") = Range("k28")
Range("b80") = Range("j9")
Range("c80") = Range("k9")
Range("d80") = Range("j10")
Range("e80") = Range("k10")
Range("f80") = Range("j11")
Range("g80") = Range("k11")
Range("h80") = Range("j12")
Range("i80") = Range("k12")
Range("j80") = Range("j13")
Range("k80") = Range("k13")
Range("l80") = Range("j14")
Range("m80") = Range("k14")
Range("n80") = Range("j15")
Range("o80") = Range("k15")
Range("p80") = Range("j16")
Range("q80") = Range("k16")
Range("r80") = Range("j17")
Range("s80") = Range("k17")
Range("t80") = Range("j18")
Range("u80") = Range("k18")
Range("v80") = Range("j19")
Range("w80") = Range("k19")
Range("x80") = Range("j20")
Range("y80") = Range("k20")
Range("z80") = Range("j21")
Range("aa80") = Range("k21")
Range("ab80") = Range("j22")
Range("ac80") = Range("k22")
Range("ad80") = Range("j23")
Range("ae80") = Range("k23")
Range("af80") = Range("j24")
Range("ag80") = Range("k24")
Range("ah80") = Range("j25")
Range("ai80") = Range("k25")
Range("aj80") = Range("j26")
Range("ak80") = Range("k26")
End If
'Recall Day 20
If Target.Row = 25 And Target.Column = 7 Then
Range("j9") = Range("b80")
Range("k9") = Range("c80")
Range("j10") = Range("d80")
Range("k10") = Range("e80")
Range("j11") = Range("f80")
Range("k11") = Range("g80")
Range("j12") = Range("h80")
Range("k12") = Range("i80")
Range("j13") = Range("j80")
Range("k13") = Range("k80")
Range("j14") = Range("l80")
Range("k14") = Range("m80")
Range("j15") = Range("n80")
Range("k15") = Range("o80")
Range("j16") = Range("p80")
Range("k16") = Range("q80")
Range("j17") = Range("r80")
Range("k17") = Range("s80")
Range("j18") = Range("t80")
Range("k18") = Range("u80")
Range("j19") = Range("v80")
Range("k19") = Range("w80")
Range("j20") = Range("x80")
Range("k20") = Range("y80")
Range("j21") = Range("z80")
Range("k21") = Range("aa80")
Range("j22") = Range("ab80")
Range("k22") = Range("ac80")
Range("j23") = Range("ad80")
Range("k23") = Range("ae80")
Range("j24") = Range("af80")
Range("k24") = Range("ag80")
Range("j25") = Range("ah80")
Range("k25") = Range("ai80")
Range("j26") = Range("aj80")
Range("k26") = Range("ak80")
End If

'Record Day 21
If Target.Row = 26 And Target.Column = 6 Then
Range("c26") = Range("k28")
Range("b81") = Range("j9")
Range("c81") = Range("k9")
Range("d81") = Range("j10")
Range("e81") = Range("k10")
Range("f81") = Range("j11")
Range("g81") = Range("k11")
Range("h81") = Range("j12")
Range("i81") = Range("k12")
Range("j81") = Range("j13")
Range("k81") = Range("k13")
Range("l81") = Range("j14")
Range("m81") = Range("k14")
Range("n81") = Range("j15")
Range("o81") = Range("k15")
Range("p81") = Range("j16")
Range("q81") = Range("k16")
Range("r81") = Range("j17")
Range("s81") = Range("k17")
Range("t81") = Range("j18")
Range("u81") = Range("k18")
Range("v81") = Range("j19")
Range("w81") = Range("k19")
Range("x81") = Range("j20")
Range("y81") = Range("k20")
Range("z81") = Range("j21")
Range("aa81") = Range("k21")
Range("ab81") = Range("j22")
Range("ac81") = Range("k22")
Range("ad81") = Range("j23")
Range("ae81") = Range("k23")
Range("af81") = Range("j24")
Range("ag81") = Range("k24")
Range("ah81") = Range("j25")
Range("ai81") = Range("k25")
Range("aj81") = Range("j26")
Range("ak81") = Range("k26")
End If
'Recall Day 21
If Target.Row = 26 And Target.Column = 7 Then
Range("j9") = Range("b81")
Range("k9") = Range("c81")
Range("j10") = Range("d81")
Range("k10") = Range("e81")
Range("j11") = Range("f81")
Range("k11") = Range("g81")
Range("j12") = Range("h81")
Range("k12") = Range("i81")
Range("j13") = Range("j81")
Range("k13") = Range("k81")
Range("j14") = Range("l81")
Range("k14") = Range("m81")
Range("j15") = Range("n81")
Range("k15") = Range("o81")
Range("j16") = Range("p81")
Range("k16") = Range("q81")
Range("j17") = Range("r81")
Range("k17") = Range("s81")
Range("j18") = Range("t81")
Range("k18") = Range("u81")
Range("j19") = Range("v81")
Range("k19") = Range("w81")
Range("j20") = Range("x81")
Range("k20") = Range("y81")
Range("j21") = Range("z81")
Range("k21") = Range("aa81")
Range("j22") = Range("ab81")
Range("k22") = Range("ac81")
Range("j23") = Range("ad81")
Range("k23") = Range("ae81")
Range("j24") = Range("af81")
Range("k24") = Range("ag81")
Range("j25") = Range("ah81")
Range("k25") = Range("ai81")
Range("j26") = Range("aj81")
Range("k26") = Range("ak81")
End If

'Record Day 22
If Target.Row = 27 And Target.Column = 6 Then
Range("c27") = Range("k28")
Range("b82") = Range("j9")
Range("c82") = Range("k9")
Range("d82") = Range("j10")
Range("e82") = Range("k10")
Range("f82") = Range("j11")
Range("g82") = Range("k11")
Range("h82") = Range("j12")
Range("i82") = Range("k12")
Range("j82") = Range("j13")
Range("k82") = Range("k13")
Range("l82") = Range("j14")
Range("m82") = Range("k14")
Range("n82") = Range("j15")
Range("o82") = Range("k15")
Range("p82") = Range("j16")
Range("q82") = Range("k16")
Range("r82") = Range("j17")
Range("s82") = Range("k17")
Range("t82") = Range("j18")
Range("u82") = Range("k18")
Range("v82") = Range("j19")
Range("w82") = Range("k19")
Range("x82") = Range("j20")
Range("y82") = Range("k20")
Range("z82") = Range("j21")
Range("aa82") = Range("k21")
Range("ab82") = Range("j22")
Range("ac82") = Range("k22")
Range("ad82") = Range("j23")
Range("ae82") = Range("k23")
Range("af82") = Range("j24")
Range("ag82") = Range("k24")
Range("ah82") = Range("j25")
Range("ai82") = Range("k25")
Range("aj82") = Range("j26")
Range("ak82") = Range("k26")
End If
'Recall Day 22
If Target.Row = 27 And Target.Column = 7 Then
Range("j9") = Range("b82")
Range("k9") = Range("c82")
Range("j10") = Range("d82")
Range("k10") = Range("e82")
Range("j11") = Range("f82")
Range("k11") = Range("g82")
Range("j12") = Range("h82")
Range("k12") = Range("i82")
Range("j13") = Range("j82")
Range("k13") = Range("k82")
Range("j14") = Range("l82")
Range("k14") = Range("m82")
Range("j15") = Range("n82")
Range("k15") = Range("o82")
Range("j16") = Range("p82")
Range("k16") = Range("q82")
Range("j17") = Range("r82")
Range("k17") = Range("s82")
Range("j18") = Range("t82")
Range("k18") = Range("u82")
Range("j19") = Range("v82")
Range("k19") = Range("w82")
Range("j20") = Range("x82")
Range("k20") = Range("y82")
Range("j21") = Range("z82")
Range("k21") = Range("aa82")
Range("j22") = Range("ab82")
Range("k22") = Range("ac82")
Range("j23") = Range("ad82")
Range("k23") = Range("ae82")
Range("j24") = Range("af82")
Range("k24") = Range("ag82")
Range("j25") = Range("ah82")
Range("k25") = Range("ai82")
Range("j26") = Range("aj82")
Range("k26") = Range("ak82")
End If

'Record Day 23
If Target.Row = 28 And Target.Column = 6 Then
Range("c28") = Range("k28")
Range("b83") = Range("j9")
Range("c83") = Range("k9")
Range("d83") = Range("j10")
Range("e83") = Range("k10")
Range("f83") = Range("j11")
Range("g83") = Range("k11")
Range("h83") = Range("j12")
Range("i83") = Range("k12")
Range("j83") = Range("j13")
Range("k83") = Range("k13")
Range("l83") = Range("j14")
Range("m83") = Range("k14")
Range("n83") = Range("j15")
Range("o83") = Range("k15")
Range("p83") = Range("j16")
Range("q83") = Range("k16")
Range("r83") = Range("j17")
Range("s83") = Range("k17")
Range("t83") = Range("j18")
Range("u83") = Range("k18")
Range("v83") = Range("j19")
Range("w83") = Range("k19")
Range("x83") = Range("j20")
Range("y83") = Range("k20")
Range("z83") = Range("j21")
Range("aa83") = Range("k21")
Range("ab83") = Range("j22")
Range("ac83") = Range("k22")
Range("ad83") = Range("j23")
Range("ae83") = Range("k23")
Range("af83") = Range("j24")
Range("ag83") = Range("k24")
Range("ah83") = Range("j25")
Range("ai83") = Range("k25")
Range("aj83") = Range("j26")
Range("ak83") = Range("k26")
End If
'Recall Day 23
If Target.Row = 28 And Target.Column = 7 Then
Range("j9") = Range("b83")
Range("k9") = Range("c83")
Range("j10") = Range("d83")
Range("k10") = Range("e83")
Range("j11") = Range("f83")
Range("k11") = Range("g83")
Range("j12") = Range("h83")
Range("k12") = Range("i83")
Range("j13") = Range("j83")
Range("k13") = Range("k83")
Range("j14") = Range("l83")
Range("k14") = Range("m83")
Range("j15") = Range("n83")
Range("k15") = Range("o83")
Range("j16") = Range("p83")
Range("k16") = Range("q83")
Range("j17") = Range("r83")
Range("k17") = Range("s83")
Range("j18") = Range("t83")
Range("k18") = Range("u83")
Range("j19") = Range("v83")
Range("k19") = Range("w83")
Range("j20") = Range("x83")
Range("k20") = Range("y83")
Range("j21") = Range("z83")
Range("k21") = Range("aa83")
Range("j22") = Range("ab83")
Range("k22") = Range("ac83")
Range("j23") = Range("ad83")
Range("k23") = Range("ae83")
Range("j24") = Range("af83")
Range("k24") = Range("ag83")
Range("j25") = Range("ah83")
Range("k25") = Range("ai83")
Range("j26") = Range("aj83")
Range("k26") = Range("ak83")
End If

'Record Day 24
If Target.Row = 29 And Target.Column = 6 Then
Range("c29") = Range("k28")
Range("b84") = Range("j9")
Range("c84") = Range("k9")
Range("d84") = Range("j10")
Range("e84") = Range("k10")
Range("f84") = Range("j11")
Range("g84") = Range("k11")
Range("h84") = Range("j12")
Range("i84") = Range("k12")
Range("j84") = Range("j13")
Range("k84") = Range("k13")
Range("l84") = Range("j14")
Range("m84") = Range("k14")
Range("n84") = Range("j15")
Range("o84") = Range("k15")
Range("p84") = Range("j16")
Range("q84") = Range("k16")
Range("r84") = Range("j17")
Range("s84") = Range("k17")
Range("t84") = Range("j18")
Range("u84") = Range("k18")
Range("v84") = Range("j19")
Range("w84") = Range("k19")
Range("x84") = Range("j20")
Range("y84") = Range("k20")
Range("z84") = Range("j21")
Range("aa84") = Range("k21")
Range("ab84") = Range("j22")
Range("ac84") = Range("k22")
Range("ad84") = Range("j23")
Range("ae84") = Range("k23")
Range("af84") = Range("j24")
Range("ag84") = Range("k24")
Range("ah84") = Range("j25")
Range("ai84") = Range("k25")
Range("aj84") = Range("j26")
Range("ak84") = Range("k26")
End If
'Recall Day 24
If Target.Row = 29 And Target.Column = 7 Then
Range("j9") = Range("b84")
Range("k9") = Range("c84")
Range("j10") = Range("d84")
Range("k10") = Range("e84")
Range("j11") = Range("f84")
Range("k11") = Range("g84")
Range("j12") = Range("h84")
Range("k12") = Range("i84")
Range("j13") = Range("j84")
Range("k13") = Range("k84")
Range("j14") = Range("l84")
Range("k14") = Range("m84")
Range("j15") = Range("n84")
Range("k15") = Range("o84")
Range("j16") = Range("p84")
Range("k16") = Range("q84")
Range("j17") = Range("r84")
Range("k17") = Range("s84")
Range("j18") = Range("t84")
Range("k18") = Range("u84")
Range("j19") = Range("v84")
Range("k19") = Range("w84")
Range("j20") = Range("x84")
Range("k20") = Range("y84")
Range("j21") = Range("z84")
Range("k21") = Range("aa84")
Range("j22") = Range("ab84")
Range("k22") = Range("ac84")
Range("j23") = Range("ad84")
Range("k23") = Range("ae84")
Range("j24") = Range("af84")
Range("k24") = Range("ag84")
Range("j25") = Range("ah84")
Range("k25") = Range("ai84")
Range("j26") = Range("aj84")
Range("k26") = Range("ak84")
End If

'Record Day 25
If Target.Row = 30 And Target.Column = 6 Then
Range("c30") = Range("k28")
Range("b85") = Range("j9")
Range("c85") = Range("k9")
Range("d85") = Range("j10")
Range("e85") = Range("k10")
Range("f85") = Range("j11")
Range("g85") = Range("k11")
Range("h85") = Range("j12")
Range("i85") = Range("k12")
Range("j85") = Range("j13")
Range("k85") = Range("k13")
Range("l85") = Range("j14")
Range("m85") = Range("k14")
Range("n85") = Range("j15")
Range("o85") = Range("k15")
Range("p85") = Range("j16")
Range("q85") = Range("k16")
Range("r85") = Range("j17")
Range("s85") = Range("k17")
Range("t85") = Range("j18")
Range("u85") = Range("k18")
Range("v85") = Range("j19")
Range("w85") = Range("k19")
Range("x85") = Range("j20")
Range("y85") = Range("k20")
Range("z85") = Range("j21")
Range("aa85") = Range("k21")
Range("ab85") = Range("j22")
Range("ac85") = Range("k22")
Range("ad85") = Range("j23")
Range("ae85") = Range("k23")
Range("af85") = Range("j24")
Range("ag85") = Range("k24")
Range("ah85") = Range("j25")
Range("ai85") = Range("k25")
Range("aj85") = Range("j26")
Range("ak85") = Range("k26")
End If
'Recall Day 25
If Target.Row = 30 And Target.Column = 7 Then
Range("j9") = Range("b85")
Range("k9") = Range("c85")
Range("j10") = Range("d85")
Range("k10") = Range("e85")
Range("j11") = Range("f85")
Range("k11") = Range("g85")
Range("j12") = Range("h85")
Range("k12") = Range("i85")
Range("j13") = Range("j85")
Range("k13") = Range("k85")
Range("j14") = Range("l85")
Range("k14") = Range("m85")
Range("j15") = Range("n85")
Range("k15") = Range("o85")
Range("j16") = Range("p85")
Range("k16") = Range("q85")
Range("j17") = Range("r85")
Range("k17") = Range("s85")
Range("j18") = Range("t85")
Range("k18") = Range("u85")
Range("j19") = Range("v85")
Range("k19") = Range("w85")
Range("j20") = Range("x85")
Range("k20") = Range("y85")
Range("j21") = Range("z85")
Range("k21") = Range("aa85")
Range("j22") = Range("ab85")
Range("k22") = Range("ac85")
Range("j23") = Range("ad85")
Range("k23") = Range("ae85")
Range("j24") = Range("af85")
Range("k24") = Range("ag85")
Range("j25") = Range("ah85")
Range("k25") = Range("ai85")
Range("j26") = Range("aj85")
Range("k26") = Range("ak85")
End If

'Record Day 26
If Target.Row = 31 And Target.Column = 6 Then
Range("c31") = Range("k28")
Range("b86") = Range("j9")
Range("c86") = Range("k9")
Range("d86") = Range("j10")
Range("e86") = Range("k10")
Range("f86") = Range("j11")
Range("g86") = Range("k11")
Range("h86") = Range("j12")
Range("i86") = Range("k12")
Range("j86") = Range("j13")
Range("k86") = Range("k13")
Range("l86") = Range("j14")
Range("m86") = Range("k14")
Range("n86") = Range("j15")
Range("o86") = Range("k15")
Range("p86") = Range("j16")
Range("q86") = Range("k16")
Range("r86") = Range("j17")
Range("s86") = Range("k17")
Range("t86") = Range("j18")
Range("u86") = Range("k18")
Range("v86") = Range("j19")
Range("w86") = Range("k19")
Range("x86") = Range("j20")
Range("y86") = Range("k20")
Range("z86") = Range("j21")
Range("aa86") = Range("k21")
Range("ab86") = Range("j22")
Range("ac86") = Range("k22")
Range("ad86") = Range("j23")
Range("ae86") = Range("k23")
Range("af86") = Range("j24")
Range("ag86") = Range("k24")
Range("ah86") = Range("j25")
Range("ai86") = Range("k25")
Range("aj86") = Range("j26")
Range("ak86") = Range("k26")
End If
'Recall Day 26
If Target.Row = 31 And Target.Column = 7 Then
Range("j9") = Range("b86")
Range("k9") = Range("c86")
Range("j10") = Range("d86")
Range("k10") = Range("e86")
Range("j11") = Range("f86")
Range("k11") = Range("g86")
Range("j12") = Range("h86")
Range("k12") = Range("i86")
Range("j13") = Range("j86")
Range("k13") = Range("k86")
Range("j14") = Range("l86")
Range("k14") = Range("m86")
Range("j15") = Range("n86")
Range("k15") = Range("o86")
Range("j16") = Range("p86")
Range("k16") = Range("q86")
Range("j17") = Range("r86")
Range("k17") = Range("s86")
Range("j18") = Range("t86")
Range("k18") = Range("u86")
Range("j19") = Range("v86")
Range("k19") = Range("w86")
Range("j20") = Range("x86")
Range("k20") = Range("y86")
Range("j21") = Range("z86")
Range("k21") = Range("aa86")
Range("j22") = Range("ab86")
Range("k22") = Range("ac86")
Range("j23") = Range("ad86")
Range("k23") = Range("ae86")
Range("j24") = Range("af86")
Range("k24") = Range("ag86")
Range("j25") = Range("ah86")
Range("k25") = Range("ai86")
Range("j26") = Range("aj86")
Range("k26") = Range("ak86")
End If

'Record Day 27
If Target.Row = 32 And Target.Column = 6 Then
Range("c32") = Range("k28")
Range("b87") = Range("j9")
Range("c87") = Range("k9")
Range("d87") = Range("j10")
Range("e87") = Range("k10")
Range("f87") = Range("j11")
Range("g87") = Range("k11")
Range("h87") = Range("j12")
Range("i87") = Range("k12")
Range("j87") = Range("j13")
Range("k87") = Range("k13")
Range("l87") = Range("j14")
Range("m87") = Range("k14")
Range("n87") = Range("j15")
Range("o87") = Range("k15")
Range("p87") = Range("j16")
Range("q87") = Range("k16")
Range("r87") = Range("j17")
Range("s87") = Range("k17")
Range("t87") = Range("j18")
Range("u87") = Range("k18")
Range("v87") = Range("j19")
Range("w87") = Range("k19")
Range("x87") = Range("j20")
Range("y87") = Range("k20")
Range("z87") = Range("j21")
Range("aa87") = Range("k21")
Range("ab87") = Range("j22")
Range("ac87") = Range("k22")
Range("ad87") = Range("j23")
Range("ae87") = Range("k23")
Range("af87") = Range("j24")
Range("ag87") = Range("k24")
Range("ah87") = Range("j25")
Range("ai87") = Range("k25")
Range("aj87") = Range("j26")
Range("ak87") = Range("k26")
End If
'Recall Day 27
If Target.Row = 32 And Target.Column = 7 Then
Range("j9") = Range("b87")
Range("k9") = Range("c87")
Range("j10") = Range("d87")
Range("k10") = Range("e87")
Range("j11") = Range("f87")
Range("k11") = Range("g87")
Range("j12") = Range("h87")
Range("k12") = Range("i87")
Range("j13") = Range("j87")
Range("k13") = Range("k87")
Range("j14") = Range("l87")
Range("k14") = Range("m87")
Range("j15") = Range("n87")
Range("k15") = Range("o87")
Range("j16") = Range("p87")
Range("k16") = Range("q87")
Range("j17") = Range("r87")
Range("k17") = Range("s87")
Range("j18") = Range("t87")
Range("k18") = Range("u87")
Range("j19") = Range("v87")
Range("k19") = Range("w87")
Range("j20") = Range("x87")
Range("k20") = Range("y87")
Range("j21") = Range("z87")
Range("k21") = Range("aa87")
Range("j22") = Range("ab87")
Range("k22") = Range("ac87")
Range("j23") = Range("ad87")
Range("k23") = Range("ae87")
Range("j24") = Range("af87")
Range("k24") = Range("ag87")
Range("j25") = Range("ah87")
Range("k25") = Range("ai87")
Range("j26") = Range("aj87")
Range("k26") = Range("ak87")
End If

'Record Day 28
If Target.Row = 33 And Target.Column = 6 Then
Range("c33") = Range("k28")
Range("b88") = Range("j9")
Range("c88") = Range("k9")
Range("d88") = Range("j10")
Range("e88") = Range("k10")
Range("f88") = Range("j11")
Range("g88") = Range("k11")
Range("h88") = Range("j12")
Range("i88") = Range("k12")
Range("j88") = Range("j13")
Range("k88") = Range("k13")
Range("l88") = Range("j14")
Range("m88") = Range("k14")
Range("n88") = Range("j15")
Range("o88") = Range("k15")
Range("p88") = Range("j16")
Range("q88") = Range("k16")
Range("r88") = Range("j17")
Range("s88") = Range("k17")
Range("t88") = Range("j18")
Range("u88") = Range("k18")
Range("v88") = Range("j19")
Range("w88") = Range("k19")
Range("x88") = Range("j20")
Range("y88") = Range("k20")
Range("z88") = Range("j21")
Range("aa88") = Range("k21")
Range("ab88") = Range("j22")
Range("ac88") = Range("k22")
Range("ad88") = Range("j23")
Range("ae88") = Range("k23")
Range("af88") = Range("j24")
Range("ag88") = Range("k24")
Range("ah88") = Range("j25")
Range("ai88") = Range("k25")
Range("aj88") = Range("j26")
Range("ak88") = Range("k26")
End If
'Recall Day 28
If Target.Row = 33 And Target.Column = 7 Then
Range("j9") = Range("b88")
Range("k9") = Range("c88")
Range("j10") = Range("d88")
Range("k10") = Range("e88")
Range("j11") = Range("f88")
Range("k11") = Range("g88")
Range("j12") = Range("h88")
Range("k12") = Range("i88")
Range("j13") = Range("j88")
Range("k13") = Range("k88")
Range("j14") = Range("l88")
Range("k14") = Range("m88")
Range("j15") = Range("n88")
Range("k15") = Range("o88")
Range("j16") = Range("p88")
Range("k16") = Range("q88")
Range("j17") = Range("r88")
Range("k17") = Range("s88")
Range("j18") = Range("t88")
Range("k18") = Range("u88")
Range("j19") = Range("v88")
Range("k19") = Range("w88")
Range("j20") = Range("x88")
Range("k20") = Range("y88")
Range("j21") = Range("z88")
Range("k21") = Range("aa88")
Range("j22") = Range("ab88")
Range("k22") = Range("ac88")
Range("j23") = Range("ad88")
Range("k23") = Range("ae88")
Range("j24") = Range("af88")
Range("k24") = Range("ag88")
Range("j25") = Range("ah88")
Range("k25") = Range("ai88")
Range("j26") = Range("aj88")
Range("k26") = Range("ak88")
End If

'Record Day 29
If Target.Row = 34 And Target.Column = 6 Then
Range("c34") = Range("k28")
Range("b89") = Range("j9")
Range("c89") = Range("k9")
Range("d89") = Range("j10")
Range("e89") = Range("k10")
Range("f89") = Range("j11")
Range("g89") = Range("k11")
Range("h89") = Range("j12")
Range("i89") = Range("k12")
Range("j89") = Range("j13")
Range("k89") = Range("k13")
Range("l89") = Range("j14")
Range("m89") = Range("k14")
Range("n89") = Range("j15")
Range("o89") = Range("k15")
Range("p89") = Range("j16")
Range("q89") = Range("k16")
Range("r89") = Range("j17")
Range("s89") = Range("k17")
Range("t89") = Range("j18")
Range("u89") = Range("k18")
Range("v89") = Range("j19")
Range("w89") = Range("k19")
Range("x89") = Range("j20")
Range("y89") = Range("k20")
Range("z89") = Range("j21")
Range("aa89") = Range("k21")
Range("ab89") = Range("j22")
Range("ac89") = Range("k22")
Range("ad89") = Range("j23")
Range("ae89") = Range("k23")
Range("af89") = Range("j24")
Range("ag89") = Range("k24")
Range("ah89") = Range("j25")
Range("ai89") = Range("k25")
Range("aj89") = Range("j26")
Range("ak89") = Range("k26")
End If
'Recall Day 29
If Target.Row = 34 And Target.Column = 7 Then
Range("j9") = Range("b89")
Range("k9") = Range("c89")
Range("j10") = Range("d89")
Range("k10") = Range("e89")
Range("j11") = Range("f89")
Range("k11") = Range("g89")
Range("j12") = Range("h89")
Range("k12") = Range("i89")
Range("j13") = Range("j89")
Range("k13") = Range("k89")
Range("j14") = Range("l89")
Range("k14") = Range("m89")
Range("j15") = Range("n89")
Range("k15") = Range("o89")
Range("j16") = Range("p89")
Range("k16") = Range("q89")
Range("j17") = Range("r89")
Range("k17") = Range("s89")
Range("j18") = Range("t89")
Range("k18") = Range("u89")
Range("j19") = Range("v89")
Range("k19") = Range("w89")
Range("j20") = Range("x89")
Range("k20") = Range("y89")
Range("j21") = Range("z89")
Range("k21") = Range("aa89")
Range("j22") = Range("ab89")
Range("k22") = Range("ac89")
Range("j23") = Range("ad89")
Range("k23") = Range("ae89")
Range("j24") = Range("af89")
Range("k24") = Range("ag89")
Range("j25") = Range("ah89")
Range("k25") = Range("ai89")
Range("j26") = Range("aj89")
Range("k26") = Range("ak89")
End If

'Record Day 30
If Target.Row = 35 And Target.Column = 6 Then
Range("c35") = Range("k28")
Range("b90") = Range("j9")
Range("c90") = Range("k9")
Range("d90") = Range("j10")
Range("e90") = Range("k10")
Range("f90") = Range("j11")
Range("g90") = Range("k11")
Range("h90") = Range("j12")
Range("i90") = Range("k12")
Range("j90") = Range("j13")
Range("k90") = Range("k13")
Range("l90") = Range("j14")
Range("m90") = Range("k14")
Range("n90") = Range("j15")
Range("o90") = Range("k15")
Range("p90") = Range("j16")
Range("q90") = Range("k16")
Range("r90") = Range("j17")
Range("s90") = Range("k17")
Range("t90") = Range("j18")
Range("u90") = Range("k18")
Range("v90") = Range("j19")
Range("w90") = Range("k19")
Range("x90") = Range("j20")
Range("y90") = Range("k20")
Range("z90") = Range("j21")
Range("aa90") = Range("k21")
Range("ab90") = Range("j22")
Range("ac90") = Range("k22")
Range("ad90") = Range("j23")
Range("ae90") = Range("k23")
Range("af90") = Range("j24")
Range("ag90") = Range("k24")
Range("ah90") = Range("j25")
Range("ai90") = Range("k25")
Range("aj90") = Range("j26")
Range("ak90") = Range("k26")
End If
'Recall Day 30
If Target.Row = 35 And Target.Column = 7 Then
Range("j9") = Range("b90")
Range("k9") = Range("c90")
Range("j10") = Range("d90")
Range("k10") = Range("e90")
Range("j11") = Range("f90")
Range("k11") = Range("g90")
Range("j12") = Range("h90")
Range("k12") = Range("i90")
Range("j13") = Range("j90")
Range("k13") = Range("k90")
Range("j14") = Range("l90")
Range("k14") = Range("m90")
Range("j15") = Range("n90")
Range("k15") = Range("o90")
Range("j16") = Range("p90")
Range("k16") = Range("q90")
Range("j17") = Range("r90")
Range("k17") = Range("s90")
Range("j18") = Range("t90")
Range("k18") = Range("u90")
Range("j19") = Range("v90")
Range("k19") = Range("w90")
Range("j20") = Range("x90")
Range("k20") = Range("y90")
Range("j21") = Range("z90")
Range("k21") = Range("aa90")
Range("j22") = Range("ab90")
Range("k22") = Range("ac90")
Range("j23") = Range("ad90")
Range("k23") = Range("ae90")
Range("j24") = Range("af90")
Range("k24") = Range("ag90")
Range("j25") = Range("ah90")
Range("k25") = Range("ai90")
Range("j26") = Range("aj90")
Range("k26") = Range("ak90")
End If

'Record Day 31
If Target.Row = 36 And Target.Column = 6 Then
Range("c36") = Range("k28")
Range("b91") = Range("j9")
Range("c91") = Range("k9")
Range("d91") = Range("j10")
Range("e91") = Range("k10")
Range("f91") = Range("j11")
Range("g91") = Range("k11")
Range("h91") = Range("j12")
Range("i91") = Range("k12")
Range("j91") = Range("j13")
Range("k91") = Range("k13")
Range("l91") = Range("j14")
Range("m91") = Range("k14")
Range("n91") = Range("j15")
Range("o91") = Range("k15")
Range("p91") = Range("j16")
Range("q91") = Range("k16")
Range("r91") = Range("j17")
Range("s91") = Range("k17")
Range("t91") = Range("j18")
Range("u91") = Range("k18")
Range("v91") = Range("j19")
Range("w91") = Range("k19")
Range("x91") = Range("j20")
Range("y91") = Range("k20")
Range("z91") = Range("j21")
Range("aa91") = Range("k21")
Range("ab91") = Range("j22")
Range("ac91") = Range("k22")
Range("ad91") = Range("j23")
Range("ae91") = Range("k23")
Range("af91") = Range("j24")
Range("ag91") = Range("k24")
Range("ah91") = Range("j25")
Range("ai91") = Range("k25")
Range("aj91") = Range("j26")
Range("ak91") = Range("k26")
End If
'Recall Day 31
If Target.Row = 36 And Target.Column = 7 Then
Range("j9") = Range("b91")
Range("k9") = Range("c91")
Range("j10") = Range("d91")
Range("k10") = Range("e91")
Range("j11") = Range("f91")
Range("k11") = Range("g91")
Range("j12") = Range("h91")
Range("k12") = Range("i91")
Range("j13") = Range("j91")
Range("k13") = Range("k91")
Range("j14") = Range("l91")
Range("k14") = Range("m91")
Range("j15") = Range("n91")
Range("k15") = Range("o91")
Range("j16") = Range("p91")
Range("k16") = Range("q91")
Range("j17") = Range("r91")
Range("k17") = Range("s91")
Range("j18") = Range("t91")
Range("k18") = Range("u91")
Range("j19") = Range("v91")
Range("k19") = Range("w91")
Range("j20") = Range("x91")
Range("k20") = Range("y91")
Range("j21") = Range("z91")
Range("k21") = Range("aa91")
Range("j22") = Range("ab91")
Range("k22") = Range("ac91")
Range("j23") = Range("ad91")
Range("k23") = Range("ae91")
Range("j24") = Range("af91")
Range("k24") = Range("ag91")
Range("j25") = Range("ah91")
Range("k25") = Range("ai91")
Range("j26") = Range("aj91")
Range("k26") = Range("ak91")
End If
End Sub
 

Excel Facts

What is the fastest way to copy a formula?
If A2:A50000 contain data. Enter a formula in B2. Select B2. Double-click the Fill Handle and Excel will shoot the formula down to B50000.
I would break the If statements up like this

Code:
'Record Day 1
If Target.Row = 6 And Target.Column = 6 Then
Call RecordDay1
End If

In a standard module:
Code:
Sub RecordDay1()
Range("c6") = Range("k28")
Range("b61") = Range("j9")
Range("c61") = Range("k9")
Range("d61") = Range("j10")
Range("e61") = Range("k10")
Range("f61") = Range("j11")
Range("g61") = Range("k11")
Range("h61") = Range("j12")
Range("i61") = Range("k12")
Range("j61") = Range("j13")
Range("k61") = Range("k13")
Range("l61") = Range("j14")
Range("m61") = Range("k14")
Range("n61") = Range("j15")
Range("o61") = Range("k15")
Range("p61") = Range("j16")
Range("q61") = Range("k16")
Range("r61") = Range("j17")
Range("s61") = Range("k17")
Range("t61") = Range("j18")
Range("u61") = Range("k18")
Range("v61") = Range("j19")
Range("w61") = Range("k19")
Range("x61") = Range("j20")
Range("y61") = Range("k20")
Range("z61") = Range("j21")
Range("aa61") = Range("k21")
Range("ab61") = Range("j22")
Range("ac61") = Range("k22")
Range("ad61") = Range("j23")
Range("ae61") = Range("k23")
Range("af61") = Range("j24")
Range("ag61") = Range("k24")
Range("ah61") = Range("j25")
Range("ai61") = Range("k25")
Range("aj61") = Range("j26")
Range("ak61") = Range("k26")
End sub

ect...ect...
 
Upvote 0

Forum statistics

Threads
1,214,599
Messages
6,120,453
Members
448,967
Latest member
grijken

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top