If WorksheetFunction.Large(Range("C28:L28"), 1) = Range("C28") _
And IsEmpty(Range("C15")) Then
Range("C15").Select
ActiveSheet.Paste
Range("C10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 1) = Range("D28") _
And IsEmpty(Range("D15")) Then
Range("D15").Select
ActiveSheet.Paste
Range("D10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 1) = Range("E28") _
And IsEmpty(Range("E15")) Then
Range("E15").Select
ActiveSheet.Paste
Range("E10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 1) = Range("F28") _
And IsEmpty(Range("F15")) Then
Range("F15").Select
ActiveSheet.Paste
Range("F10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 1) = Range("G28") _
And IsEmpty(Range("G15")) Then
Range("G15").Select
ActiveSheet.Paste
Range("G10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 1) = Range("H28") _
And IsEmpty(Range("H15")) Then
Range("H15").Select
ActiveSheet.Paste
Range("H10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 1) = Range("I28") _
And IsEmpty(Range("I15")) Then
Range("I15").Select
ActiveSheet.Paste
Range("I10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 1) = Range("J28") _
And IsEmpty(Range("J15")) Then
Range("J15").Select
ActiveSheet.Paste
Range("J10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 1) = Range("K28") _
And IsEmpty(Range("K15")) Then
Range("K15").Select
ActiveSheet.Paste
Range("K10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 1) = Range("L28") _
And IsEmpty(Range("L15")) Then
Range("L15").Select
ActiveSheet.Paste
Range("L10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 2) = Range("C28") _
And IsEmpty(Range("C15")) Then
Range("C15").Select
ActiveSheet.Paste
Range("C10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 2) = Range("D28") _
And IsEmpty(Range("D15")) Then
Range("D15").Select
ActiveSheet.Paste
Range("D10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 2) = Range("E28") _
And IsEmpty(Range("E15")) Then
Range("E15").Select
ActiveSheet.Paste
Range("E10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 2) = Range("F28") _
And IsEmpty(Range("F15")) Then
Range("F15").Select
ActiveSheet.Paste
Range("F10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 2) = Range("G28") _
And IsEmpty(Range("G15")) Then
Range("G15").Select
ActiveSheet.Paste
Range("G10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 2) = Range("H28") _
And IsEmpty(Range("H15")) Then
Range("H15").Select
ActiveSheet.Paste
Range("H10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 2) = Range("I28") _
And IsEmpty(Range("I15")) Then
Range("I15").Select
ActiveSheet.Paste
Range("I10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 2) = Range("J28") _
And IsEmpty(Range("J15")) Then
Range("J15").Select
ActiveSheet.Paste
Range("J10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 2) = Range("K28") _
And IsEmpty(Range("K15")) Then
Range("K15").Select
ActiveSheet.Paste
Range("K10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 2) = Range("L28") _
And IsEmpty(Range("L15")) Then
Range("L15").Select
ActiveSheet.Paste
Range("L10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 3) = Range("C28") _
And IsEmpty(Range("C15")) Then
Range("C15").Select
ActiveSheet.Paste
Range("C10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 3) = Range("D28") _
And IsEmpty(Range("D15")) Then
Range("D15").Select
ActiveSheet.Paste
Range("D10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 3) = Range("E28") _
And IsEmpty(Range("E15")) Then
Range("E15").Select
ActiveSheet.Paste
Range("E10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 3) = Range("F28") _
And IsEmpty(Range("F15")) Then
Range("F15").Select
ActiveSheet.Paste
Range("F10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 3) = Range("G28") _
And IsEmpty(Range("G15")) Then
Range("G15").Select
ActiveSheet.Paste
Range("G10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 3) = Range("H28") _
And IsEmpty(Range("H15")) Then
Range("H15").Select
ActiveSheet.Paste
Range("H10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 3) = Range("I28") _
And IsEmpty(Range("I15")) Then
Range("I15").Select
ActiveSheet.Paste
Range("I10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 3) = Range("J28") _
And IsEmpty(Range("J15")) Then
Range("J15").Select
ActiveSheet.Paste
Range("J10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 3) = Range("K28") _
And IsEmpty(Range("K15")) Then
Range("K15").Select
ActiveSheet.Paste
Range("K10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 3) = Range("L28") _
And IsEmpty(Range("L15")) Then
Range("L15").Select
ActiveSheet.Paste
Range("L10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 4) = Range("C28") _
And IsEmpty(Range("C15")) Then
Range("C15").Select
ActiveSheet.Paste
Range("C10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 4) = Range("D28") _
And IsEmpty(Range("D15")) Then
Range("D15").Select
ActiveSheet.Paste
Range("D10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 4) = Range("E28") _
And IsEmpty(Range("E15")) Then
Range("E15").Select
ActiveSheet.Paste
Range("E10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 4) = Range("F28") _
And IsEmpty(Range("F15")) Then
Range("F15").Select
ActiveSheet.Paste
Range("F10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 4) = Range("G28") _
And IsEmpty(Range("G15")) Then
Range("G15").Select
ActiveSheet.Paste
Range("G10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 4) = Range("H28") _
And IsEmpty(Range("H15")) Then
Range("H15").Select
ActiveSheet.Paste
Range("H10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 4) = Range("I28") _
And IsEmpty(Range("I15")) Then
Range("I15").Select
ActiveSheet.Paste
Range("I10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 4) = Range("J28") _
And IsEmpty(Range("J15")) Then
Range("J15").Select
ActiveSheet.Paste
Range("J10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 4) = Range("K28") _
And IsEmpty(Range("K15")) Then
Range("K15").Select
ActiveSheet.Paste
Range("K10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 4) = Range("L28") _
And IsEmpty(Range("L15")) Then
Range("L15").Select
ActiveSheet.Paste
Range("L10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 5) = Range("C28") _
And IsEmpty(Range("C15")) Then
Range("C15").Select
ActiveSheet.Paste
Range("C10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 5) = Range("D28") _
And IsEmpty(Range("D15")) Then
Range("D15").Select
ActiveSheet.Paste
Range("D10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 5) = Range("E28") _
And IsEmpty(Range("E15")) Then
Range("E15").Select
ActiveSheet.Paste
Range("E10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 5) = Range("F28") _
And IsEmpty(Range("F15")) Then
Range("F15").Select
ActiveSheet.Paste
Range("F10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 5) = Range("G28") _
And IsEmpty(Range("G15")) Then
Range("G15").Select
ActiveSheet.Paste
Range("G10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 5) = Range("H28") _
And IsEmpty(Range("H15")) Then
Range("H15").Select
ActiveSheet.Paste
Range("H10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 5) = Range("I28") _
And IsEmpty(Range("I15")) Then
Range("I15").Select
ActiveSheet.Paste
Range("I10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 5) = Range("J28") _
And IsEmpty(Range("J15")) Then
Range("J15").Select
ActiveSheet.Paste
Range("J10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 5) = Range("K28") _
And IsEmpty(Range("K15")) Then
Range("K15").Select
ActiveSheet.Paste
Range("K10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 5) = Range("L28") _
And IsEmpty(Range("L15")) Then
Range("L15").Select
ActiveSheet.Paste
Range("L10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 6) = Range("C28") _
And IsEmpty(Range("C15")) Then
Range("C15").Select
ActiveSheet.Paste
Range("C10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 6) = Range("D28") _
And IsEmpty(Range("D15")) Then
Range("D15").Select
ActiveSheet.Paste
Range("D10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 6) = Range("E28") _
And IsEmpty(Range("E15")) Then
Range("E15").Select
ActiveSheet.Paste
Range("E10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 6) = Range("F28") _
And IsEmpty(Range("F15")) Then
Range("F15").Select
ActiveSheet.Paste
Range("F10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 6) = Range("G28") _
And IsEmpty(Range("G15")) Then
Range("G15").Select
ActiveSheet.Paste
Range("G10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 6) = Range("H28") _
And IsEmpty(Range("H15")) Then
Range("H15").Select
ActiveSheet.Paste
Range("H10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 6) = Range("I28") _
And IsEmpty(Range("I15")) Then
Range("I15").Select
ActiveSheet.Paste
Range("I10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 6) = Range("J28") _
And IsEmpty(Range("J15")) Then
Range("J15").Select
ActiveSheet.Paste
Range("J10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 6) = Range("K28") _
And IsEmpty(Range("K15")) Then
Range("K15").Select
ActiveSheet.Paste
Range("K10").Select
ElseIf WorksheetFunction.Large(Range("C28:L28"), 6) = Range("L28") _
And IsEmpty(Range("L15")) Then
Range("L15").Select
ActiveSheet.Paste
Range("L10").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 1) = Range("C29") _
And IsEmpty(Range("C24")) Then
Range("C24").Select
ActiveSheet.Paste
Range("C19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 1) = Range("D29") _
And IsEmpty(Range("D24")) Then
Range("D24").Select
ActiveSheet.Paste
Range("D19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 1) = Range("E29") _
And IsEmpty(Range("E24")) Then
Range("E24").Select
ActiveSheet.Paste
Range("E19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 1) = Range("F29") _
And IsEmpty(Range("F24")) Then
Range("F24").Select
ActiveSheet.Paste
Range("F19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 1) = Range("G29") _
And IsEmpty(Range("G24")) Then
Range("G24").Select
ActiveSheet.Paste
Range("G19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 1) = Range("H29") _
And IsEmpty(Range("H24")) Then
Range("H24").Select
ActiveSheet.Paste
Range("H19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 1) = Range("I29") _
And IsEmpty(Range("I24")) Then
Range("I24").Select
ActiveSheet.Paste
Range("I19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 1) = Range("J29") _
And IsEmpty(Range("J24")) Then
Range("J24").Select
ActiveSheet.Paste
Range("J19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 1) = Range("K29") _
And IsEmpty(Range("K24")) Then
Range("K24").Select
ActiveSheet.Paste
Range("K19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 1) = Range("L29") _
And IsEmpty(Range("L24")) Then
Range("L24").Select
ActiveSheet.Paste
Range("L19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 2) = Range("C29") _
And IsEmpty(Range("C24")) Then
Range("C24").Select
ActiveSheet.Paste
Range("C19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 2) = Range("D29") _
And IsEmpty(Range("D24")) Then
Range("D24").Select
ActiveSheet.Paste
Range("D19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 2) = Range("E29") _
And IsEmpty(Range("E24")) Then
Range("E24").Select
ActiveSheet.Paste
Range("E19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 2) = Range("F29") _
And IsEmpty(Range("F24")) Then
Range("F24").Select
ActiveSheet.Paste
Range("F19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 2) = Range("G29") _
And IsEmpty(Range("G24")) Then
Range("G24").Select
ActiveSheet.Paste
Range("G19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 2) = Range("H29") _
And IsEmpty(Range("H24")) Then
Range("H24").Select
ActiveSheet.Paste
Range("H19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 2) = Range("I29") _
And IsEmpty(Range("I24")) Then
Range("I24").Select
ActiveSheet.Paste
Range("I19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 2) = Range("J29") _
And IsEmpty(Range("J24")) Then
Range("J24").Select
ActiveSheet.Paste
Range("J19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 2) = Range("K29") _
And IsEmpty(Range("K24")) Then
Range("K24").Select
ActiveSheet.Paste
Range("K19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 2) = Range("L29") _
And IsEmpty(Range("L24")) Then
Range("L24").Select
ActiveSheet.Paste
Range("L19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 3) = Range("C29") _
And IsEmpty(Range("C24")) Then
Range("C24").Select
ActiveSheet.Paste
Range("C19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 3) = Range("D29") _
And IsEmpty(Range("D24")) Then
Range("D24").Select
ActiveSheet.Paste
Range("D19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 3) = Range("E29") _
And IsEmpty(Range("E24")) Then
Range("E24").Select
ActiveSheet.Paste
Range("E19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 3) = Range("F29") _
And IsEmpty(Range("F24")) Then
Range("F24").Select
ActiveSheet.Paste
Range("F19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 3) = Range("G29") _
And IsEmpty(Range("G24")) Then
Range("G24").Select
ActiveSheet.Paste
Range("G19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 3) = Range("H29") _
And IsEmpty(Range("H24")) Then
Range("H24").Select
ActiveSheet.Paste
Range("H19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 3) = Range("I29") _
And IsEmpty(Range("I24")) Then
Range("I24").Select
ActiveSheet.Paste
Range("I19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 3) = Range("J29") _
And IsEmpty(Range("J24")) Then
Range("J24").Select
ActiveSheet.Paste
Range("J19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 3) = Range("K29") _
And IsEmpty(Range("K24")) Then
Range("K24").Select
ActiveSheet.Paste
Range("K19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 3) = Range("L29") _
And IsEmpty(Range("L24")) Then
Range("L24").Select
ActiveSheet.Paste
Range("L19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 4) = Range("C29") _
And IsEmpty(Range("C24")) Then
Range("C24").Select
ActiveSheet.Paste
Range("C19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 4) = Range("D29") _
And IsEmpty(Range("D24")) Then
Range("D24").Select
ActiveSheet.Paste
Range("D19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 4) = Range("E29") _
And IsEmpty(Range("E24")) Then
Range("E24").Select
ActiveSheet.Paste
Range("E19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 4) = Range("F29") _
And IsEmpty(Range("F24")) Then
Range("F24").Select
ActiveSheet.Paste
Range("F19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 4) = Range("G29") _
And IsEmpty(Range("G24")) Then
Range("G24").Select
ActiveSheet.Paste
Range("G19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 4) = Range("H29") _
And IsEmpty(Range("H24")) Then
Range("H24").Select
ActiveSheet.Paste
Range("H19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 4) = Range("I29") _
And IsEmpty(Range("I24")) Then
Range("I24").Select
ActiveSheet.Paste
Range("I19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 4) = Range("J29") _
And IsEmpty(Range("J24")) Then
Range("J24").Select
ActiveSheet.Paste
Range("J19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 4) = Range("K29") _
And IsEmpty(Range("K24")) Then
Range("K24").Select
ActiveSheet.Paste
Range("K19").Select
ElseIf WorksheetFunction.Large(Range("C29:L29"), 4) = Range("L29") _
And IsEmpty(Range("L24")) Then
Range("L24").Select
ActiveSheet.Paste
Range("L19").Select