Excell clode client accounting

excell code

Sub Button2_Click()

Worksheets("input").Unprotect Password:="nottherealpasswordwasjustquicker"
Worksheets("cashbook").Unprotect Password:="nottherealpasswordwasjustquicker"

Dim NewRow As Integer
Dim NewRow1 As Integer
Dim NewRow2 As Integer
Dim NewRow3 As Integer
Dim NewRow4 As Integer
Dim NewRow5 As Integer
Dim NewRow6 As Integer
Dim NewRow7 As Integer
Dim NewRow8 As Integer
Dim NewRow9 As Integer
Dim NewRow10 As Integer
Dim NewRow11 As Integer
Dim NewRow12 As Integer
Dim NewRow13 As Integer
Dim NewRow14 As Integer
Dim NewRow15 As Integer
Dim NewRow16 As Integer
Dim NewRow17 As Integer
Dim NewRow18 As Integer
Dim NewRow19 As Integer
Dim NewRow20 As Integer
Dim NewRow21 As Integer
Dim NewRow22 As Integer
Dim NewRow23 As Integer
Dim NewRow24 As Integer
Dim NewRow25 As Integer
Dim NewRow26 As Integer
Dim NewRow27 As Integer
Dim NewRow28 As Integer
Dim NewRow29 As Integer
Dim NewRow30 As Integer
Dim NewRow31 As Integer
Dim NewRow32 As Integer
Dim NewRow33 As Integer
Dim NewRow34 As Integer
Dim NewRow35 As Integer
Dim NewRow36 As Integer
Dim NewRow37 As Integer
Dim NewRow38 As Integer
Dim NewRow39 As Integer
Dim NewRow40 As Integer
Dim NewRow41 As Integer
Dim NewRow42 As Integer
Dim NewRow43 As Integer
Dim NewRow44 As Integer
Dim NewRow45 As Integer
Dim NewRow46 As Integer
Dim NewRow47 As Integer
Dim NewRow48 As Integer
Dim NewRow49 As Integer
Dim NewRow50 As Integer
Dim TransNo As Integer

NewRow = Worksheets("input").Range("D12").Value + 1
NewRow1 = Worksheets("input").Range("E12").Value + 1
NewRow2 = Worksheets("input").Range("F12").Value + 1
NewRow3 = Worksheets("input").Range("G12").Value + 1
NewRow4 = Worksheets("input").Range("H12").Value + 1
NewRow5 = Worksheets("input").Range("I12").Value + 1
NewRow6 = Worksheets("input").Range("J12").Value + 1
NewRow7 = Worksheets("input").Range("K12").Value + 1
NewRow8 = Worksheets("input").Range("L12").Value + 1
NewRow9 = Worksheets("input").Range("M12").Value + 1
NewRow10 = Worksheets("input").Range("N12").Value + 1
NewRow11 = Worksheets("input").Range("O12").Value + 1
NewRow12 = Worksheets("input").Range("P12").Value + 1
NewRow13 = Worksheets("input").Range("Q12").Value + 1
NewRow14 = Worksheets("input").Range("R12").Value + 1
NewRow15 = Worksheets("input").Range("S12").Value + 1
NewRow16 = Worksheets("input").Range("T12").Value + 1
NewRow17 = Worksheets("input").Range("U12").Value + 1
NewRow18 = Worksheets("input").Range("V12").Value + 1
NewRow19 = Worksheets("input").Range("W12").Value + 1
NewRow20 = Worksheets("input").Range("X12").Value + 1
NewRow21 = Worksheets("input").Range("Y12").Value + 1
NewRow22 = Worksheets("input").Range("Z12").Value + 1
NewRow23 = Worksheets("input").Range("AA12").Value + 1
NewRow24 = Worksheets("input").Range("AB12").Value + 1
NewRow25 = Worksheets("input").Range("AC12").Value + 1
NewRow26 = Worksheets("input").Range("AD12").Value + 1
NewRow27 = Worksheets("input").Range("AE12").Value + 1
NewRow28 = Worksheets("input").Range("AF12").Value + 1
NewRow29 = Worksheets("input").Range("AG12").Value + 1
NewRow30 = Worksheets("input").Range("AH12").Value + 1
NewRow31 = Worksheets("input").Range("AI12").Value + 1
NewRow32 = Worksheets("input").Range("AJ12").Value + 1
NewRow33 = Worksheets("input").Range("AK12").Value + 1
NewRow34 = Worksheets("input").Range("AL12").Value + 1
NewRow35 = Worksheets("input").Range("AM12").Value + 1
NewRow36 = Worksheets("input").Range("AN12").Value + 1
NewRow37 = Worksheets("input").Range("AO12").Value + 1
NewRow38 = Worksheets("input").Range("AP12").Value + 1
NewRow39 = Worksheets("input").Range("AQ12").Value + 1
NewRow40 = Worksheets("input").Range("AR12").Value + 1
NewRow41 = Worksheets("input").Range("AS12").Value + 1
NewRow42 = Worksheets("input").Range("AT12").Value + 1
NewRow43 = Worksheets("input").Range("AU12").Value + 1
NewRow44 = Worksheets("input").Range("AV12").Value + 1
NewRow45 = Worksheets("input").Range("AW12").Value + 1
NewRow46 = Worksheets("input").Range("AX12").Value + 1
NewRow47 = Worksheets("input").Range("AY12").Value + 1
NewRow48 = Worksheets("input").Range("AZ12").Value + 1
NewRow49 = Worksheets("input").Range("BA12").Value + 1
NewRow50 = Worksheets("input").Range("BB12").Value + 1
TransNo = Worksheets("input").Range("D13").Value + 1

Worksheets("cashbook").Cells(NewRow, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("cashbook").Cells(NewRow, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("cashbook").Cells(NewRow, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("cashbook").Cells(NewRow, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("cashbook").Cells(NewRow, 6).Value = Worksheets("input").Range("B9").Value
Worksheets("cashbook").Cells(NewRow, 7).Value = Worksheets("input").Range("B10").Value
Worksheets("cashbook").Cells(NewRow, 8).Value = Worksheets("cashbook").Cells(NewRow - 1, 8).Value + Worksheets("cashbook").Cells(NewRow, 6).Value - Worksheets("cashbook").Cells(NewRow, 7).Value
Worksheets("cashbook").Cells(NewRow, 1).Value = Worksheets("input").Range("D13").Value

If Worksheets("input").Range("B6").Value = 1 Then

Worksheets("P1").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P1").Cells(NewRow1, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P1").Cells(NewRow1, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P1").Cells(NewRow1, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P1").Cells(NewRow1, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P1").Cells(NewRow1, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P1").Cells(NewRow1, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P1").Cells(NewRow1, 8).Value = Worksheets("P1").Cells(NewRow1 - 1, 8).Value + Worksheets("P1").Cells(NewRow1, 6).Value - Worksheets("P1").Cells(NewRow1, 7).Value
Worksheets("P1").Cells(NewRow1, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("E12").Value = NewRow1

End If

If Worksheets("input").Range("B6").Value = 2 Then

Worksheets("P2").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P2").Cells(NewRow2, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P2").Cells(NewRow2, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P2").Cells(NewRow2, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P2").Cells(NewRow2, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P2").Cells(NewRow2, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P2").Cells(NewRow2, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P2").Cells(NewRow2, 8).Value = Worksheets("P2").Cells(NewRow2 - 1, 8).Value + Worksheets("P2").Cells(NewRow2, 6).Value - Worksheets("P2").Cells(NewRow2, 7).Value
Worksheets("P2").Cells(NewRow2, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("F12").Value = NewRow2

End If

If Worksheets("input").Range("B6").Value = 3 Then

Worksheets("P3").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P3").Cells(NewRow3, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P3").Cells(NewRow3, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P3").Cells(NewRow3, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P3").Cells(NewRow3, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P3").Cells(NewRow3, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P3").Cells(NewRow3, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P3").Cells(NewRow3, 8).Value = Worksheets("P3").Cells(NewRow3 - 1, 8).Value + Worksheets("P3").Cells(NewRow3, 6).Value - Worksheets("P3").Cells(NewRow3, 7).Value
Worksheets("P3").Cells(NewRow3, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("G12").Value = NewRow3

End If

If Worksheets("input").Range("B6").Value = 4 Then

Worksheets("P4").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P4").Cells(NewRow4, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P4").Cells(NewRow4, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P4").Cells(NewRow4, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P4").Cells(NewRow4, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P4").Cells(NewRow4, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P4").Cells(NewRow4, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P4").Cells(NewRow4, 8).Value = Worksheets("P4").Cells(NewRow4 - 1, 8).Value + Worksheets("P4").Cells(NewRow4, 6).Value - Worksheets("P4").Cells(NewRow4, 7).Value
Worksheets("P4").Cells(NewRow4, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("H12").Value = NewRow4

End If

If Worksheets("input").Range("B6").Value = 5 Then

Worksheets("P5").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P5").Cells(NewRow5, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P5").Cells(NewRow5, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P5").Cells(NewRow5, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P5").Cells(NewRow5, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P5").Cells(NewRow5, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P5").Cells(NewRow5, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P5").Cells(NewRow5, 8).Value = Worksheets("P5").Cells(NewRow5 - 1, 8).Value + Worksheets("P5").Cells(NewRow5, 6).Value - Worksheets("P5").Cells(NewRow5, 7).Value
Worksheets("P5").Cells(NewRow5, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("I12").Value = NewRow5

End If

If Worksheets("input").Range("B6").Value = 6 Then

Worksheets("P6").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P6").Cells(NewRow6, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P6").Cells(NewRow6, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P6").Cells(NewRow6, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P6").Cells(NewRow6, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P6").Cells(NewRow6, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P6").Cells(NewRow6, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P6").Cells(NewRow6, 8).Value = Worksheets("P6").Cells(NewRow6 - 1, 8).Value + Worksheets("P6").Cells(NewRow6, 6).Value - Worksheets("P6").Cells(NewRow6, 7).Value
Worksheets("P6").Cells(NewRow6, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("J12").Value = NewRow6

End If

If Worksheets("input").Range("B6").Value = 7 Then

Worksheets("P7").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P7").Cells(NewRow7, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P7").Cells(NewRow7, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P7").Cells(NewRow7, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P7").Cells(NewRow7, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P7").Cells(NewRow7, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P7").Cells(NewRow7, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P7").Cells(NewRow7, 8).Value = Worksheets("P7").Cells(NewRow7 - 1, 8).Value + Worksheets("P7").Cells(NewRow7, 6).Value - Worksheets("P7").Cells(NewRow7, 7).Value
Worksheets("P7").Cells(NewRow7, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("K12").Value = NewRow7

End If

If Worksheets("input").Range("B6").Value = 8 Then

Worksheets("P8").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P8").Cells(NewRow8, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P8").Cells(NewRow8, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P8").Cells(NewRow8, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P8").Cells(NewRow8, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P8").Cells(NewRow8, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P8").Cells(NewRow8, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P8").Cells(NewRow8, 8).Value = Worksheets("P8").Cells(NewRow8 - 1, 8).Value + Worksheets("P8").Cells(NewRow8, 6).Value - Worksheets("P8").Cells(NewRow8, 7).Value
Worksheets("P8").Cells(NewRow8, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("L12").Value = NewRow8

End If

If Worksheets("input").Range("B6").Value = 9 Then

Worksheets("P9").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P9").Cells(NewRow9, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P9").Cells(NewRow9, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P9").Cells(NewRow9, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P9").Cells(NewRow9, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P9").Cells(NewRow9, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P9").Cells(NewRow9, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P9").Cells(NewRow9, 8).Value = Worksheets("P9").Cells(NewRow9 - 1, 8).Value + Worksheets("P9").Cells(NewRow9, 6).Value - Worksheets("P9").Cells(NewRow9, 7).Value
Worksheets("P9").Cells(NewRow9, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("M12").Value = NewRow9

End If

If Worksheets("input").Range("B6").Value = 10 Then

Worksheets("P10").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P10").Cells(NewRow10, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P10").Cells(NewRow10, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P10").Cells(NewRow10, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P10").Cells(NewRow10, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P10").Cells(NewRow10, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P10").Cells(NewRow10, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P10").Cells(NewRow10, 8).Value = Worksheets("P10").Cells(NewRow10 - 1, 8).Value + Worksheets("P10").Cells(NewRow10, 6).Value - Worksheets("P10").Cells(NewRow10, 7).Value
Worksheets("P10").Cells(NewRow10, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("N12").Value = NewRow10

End If

If Worksheets("input").Range("B6").Value = 11 Then

Worksheets("P11").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P11").Cells(NewRow11, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P11").Cells(NewRow11, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P11").Cells(NewRow11, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P11").Cells(NewRow11, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P11").Cells(NewRow11, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P11").Cells(NewRow11, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P11").Cells(NewRow11, 8).Value = Worksheets("P11").Cells(NewRow11 - 1, 8).Value + Worksheets("P11").Cells(NewRow11, 6).Value - Worksheets("P11").Cells(NewRow11, 7).Value
Worksheets("P11").Cells(NewRow11, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("O12").Value = NewRow11

End If

If Worksheets("input").Range("B6").Value = 12 Then

Worksheets("P12").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P12").Cells(NewRow12, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P12").Cells(NewRow12, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P12").Cells(NewRow12, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P12").Cells(NewRow12, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P12").Cells(NewRow12, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P12").Cells(NewRow12, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P12").Cells(NewRow12, 8).Value = Worksheets("P12").Cells(NewRow12 - 1, 8).Value + Worksheets("P12").Cells(NewRow12, 6).Value - Worksheets("P12").Cells(NewRow12, 7).Value
Worksheets("P12").Cells(NewRow12, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("P12").Value = NewRow12

End If

If Worksheets("input").Range("B6").Value = 13 Then

Worksheets("P13").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P13").Cells(NewRow13, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P13").Cells(NewRow13, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P13").Cells(NewRow13, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P13").Cells(NewRow13, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P13").Cells(NewRow13, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P13").Cells(NewRow13, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P13").Cells(NewRow13, 8).Value = Worksheets("P13").Cells(NewRow13 - 1, 8).Value + Worksheets("P13").Cells(NewRow13, 6).Value - Worksheets("P13").Cells(NewRow13, 7).Value
Worksheets("P13").Cells(NewRow13, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("Q12").Value = NewRow13

End If

If Worksheets("input").Range("B6").Value = 14 Then

Worksheets("P14").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P14").Cells(NewRow14, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P14").Cells(NewRow14, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P14").Cells(NewRow14, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P14").Cells(NewRow14, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P14").Cells(NewRow14, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P14").Cells(NewRow14, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P14").Cells(NewRow14, 8).Value = Worksheets("P14").Cells(NewRow14 - 1, 8).Value + Worksheets("P14").Cells(NewRow14, 6).Value - Worksheets("P14").Cells(NewRow14, 7).Value
Worksheets("P14").Cells(NewRow14, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("R12").Value = NewRow14

End If

If Worksheets("input").Range("B6").Value = 15 Then

Worksheets("P15").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P15").Cells(NewRow15, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P15").Cells(NewRow15, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P15").Cells(NewRow15, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P15").Cells(NewRow15, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P15").Cells(NewRow15, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P15").Cells(NewRow15, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P15").Cells(NewRow15, 8).Value = Worksheets("P15").Cells(NewRow15 - 1, 8).Value + Worksheets("P15").Cells(NewRow15, 6).Value - Worksheets("P15").Cells(NewRow15, 7).Value
Worksheets("P15").Cells(NewRow15, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("S12").Value = NewRow15

End If

If Worksheets("input").Range("B6").Value = 16 Then

Worksheets("P16").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P16").Cells(NewRow16, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P16").Cells(NewRow16, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P16").Cells(NewRow16, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P16").Cells(NewRow16, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P16").Cells(NewRow16, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P16").Cells(NewRow16, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P16").Cells(NewRow16, 8).Value = Worksheets("P16").Cells(NewRow16 - 1, 8).Value + Worksheets("P16").Cells(NewRow16, 6).Value - Worksheets("P16").Cells(NewRow16, 7).Value
Worksheets("P16").Cells(NewRow16, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("T12").Value = NewRow16

End If

If Worksheets("input").Range("B6").Value = 17 Then

Worksheets("P17").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P17").Cells(NewRow17, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P17").Cells(NewRow17, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P17").Cells(NewRow17, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P17").Cells(NewRow17, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P17").Cells(NewRow17, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P17").Cells(NewRow17, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P17").Cells(NewRow17, 8).Value = Worksheets("P17").Cells(NewRow17 - 1, 8).Value + Worksheets("P17").Cells(NewRow17, 6).Value - Worksheets("P17").Cells(NewRow17, 7).Value
Worksheets("P17").Cells(NewRow17, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("U12").Value = NewRow17

End If

If Worksheets("input").Range("B6").Value = 18 Then

Worksheets("P18").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P18").Cells(NewRow18, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P18").Cells(NewRow18, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P18").Cells(NewRow18, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P18").Cells(NewRow18, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P18").Cells(NewRow18, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P18").Cells(NewRow18, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P18").Cells(NewRow18, 8).Value = Worksheets("P18").Cells(NewRow18 - 1, 8).Value + Worksheets("P18").Cells(NewRow18, 6).Value - Worksheets("P18").Cells(NewRow18, 7).Value
Worksheets("P18").Cells(NewRow18, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("V12").Value = NewRow18

End If

If Worksheets("input").Range("B6").Value = 19 Then

Worksheets("P19").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P19").Cells(NewRow19, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P19").Cells(NewRow19, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P19").Cells(NewRow19, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P19").Cells(NewRow19, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P19").Cells(NewRow19, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P19").Cells(NewRow19, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P19").Cells(NewRow19, 8).Value = Worksheets("P19").Cells(NewRow19 - 1, 8).Value + Worksheets("P19").Cells(NewRow19, 6).Value - Worksheets("P19").Cells(NewRow19, 7).Value
Worksheets("P19").Cells(NewRow19, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("W12").Value = NewRow19

End If

If Worksheets("input").Range("B6").Value = 20 Then

Worksheets("P20").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P20").Cells(NewRow20, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P20").Cells(NewRow20, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P20").Cells(NewRow20, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P20").Cells(NewRow20, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P20").Cells(NewRow20, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P20").Cells(NewRow20, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P20").Cells(NewRow20, 8).Value = Worksheets("P20").Cells(NewRow20 - 1, 8).Value + Worksheets("P20").Cells(NewRow20, 6).Value - Worksheets("P20").Cells(NewRow20, 7).Value
Worksheets("P20").Cells(NewRow20, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("X12").Value = NewRow20

End If

If Worksheets("input").Range("B6").Value = 21 Then

Worksheets("P21").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P21").Cells(NewRow21, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P21").Cells(NewRow21, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P21").Cells(NewRow21, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P21").Cells(NewRow21, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P21").Cells(NewRow21, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P21").Cells(NewRow21, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P21").Cells(NewRow21, 8).Value = Worksheets("P21").Cells(NewRow21 - 1, 8).Value + Worksheets("P21").Cells(NewRow21, 6).Value - Worksheets("P21").Cells(NewRow21, 7).Value
Worksheets("P21").Cells(NewRow21, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("Y12").Value = NewRow21

End If

If Worksheets("input").Range("B6").Value = 22 Then

Worksheets("P22").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P22").Cells(NewRow22, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P22").Cells(NewRow22, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P22").Cells(NewRow22, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P22").Cells(NewRow22, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P22").Cells(NewRow22, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P22").Cells(NewRow22, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P22").Cells(NewRow22, 8).Value = Worksheets("P22").Cells(NewRow22 - 1, 8).Value + Worksheets("P22").Cells(NewRow22, 6).Value - Worksheets("P22").Cells(NewRow22, 7).Value
Worksheets("P22").Cells(NewRow22, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("Z12").Value = NewRow22

End If

If Worksheets("input").Range("B6").Value = 23 Then

Worksheets("P23").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P23").Cells(NewRow23, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P23").Cells(NewRow23, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P23").Cells(NewRow23, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P23").Cells(NewRow23, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P23").Cells(NewRow23, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P23").Cells(NewRow23, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P23").Cells(NewRow23, 8).Value = Worksheets("P23").Cells(NewRow23 - 1, 8).Value + Worksheets("P23").Cells(NewRow23, 6).Value - Worksheets("P23").Cells(NewRow23, 7).Value
Worksheets("P23").Cells(NewRow23, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AA12").Value = NewRow23

End If

If Worksheets("input").Range("B6").Value = 24 Then

Worksheets("P24").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P24").Cells(NewRow24, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P24").Cells(NewRow24, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P24").Cells(NewRow24, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P24").Cells(NewRow24, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P24").Cells(NewRow24, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P24").Cells(NewRow24, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P24").Cells(NewRow24, 8).Value = Worksheets("P24").Cells(NewRow24 - 1, 8).Value + Worksheets("P24").Cells(NewRow24, 6).Value - Worksheets("P24").Cells(NewRow24, 7).Value
Worksheets("P24").Cells(NewRow24, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AB12").Value = NewRow24

End If

If Worksheets("input").Range("B6").Value = 25 Then

Worksheets("P25").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P25").Cells(NewRow25, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P25").Cells(NewRow25, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P25").Cells(NewRow25, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P25").Cells(NewRow25, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P25").Cells(NewRow25, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P25").Cells(NewRow25, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P25").Cells(NewRow25, 8).Value = Worksheets("P25").Cells(NewRow25 - 1, 8).Value + Worksheets("P25").Cells(NewRow25, 6).Value - Worksheets("P25").Cells(NewRow25, 7).Value
Worksheets("P25").Cells(NewRow25, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AC12").Value = NewRow25

End If
If Worksheets("input").Range("B6").Value = 26 Then

Worksheets("P26").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P26").Cells(NewRow26, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P26").Cells(NewRow26, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P26").Cells(NewRow26, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P26").Cells(NewRow26, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P26").Cells(NewRow26, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P26").Cells(NewRow26, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P26").Cells(NewRow26, 8).Value = Worksheets("P26").Cells(NewRow26 - 1, 8).Value + Worksheets("P26").Cells(NewRow26, 6).Value - Worksheets("P26").Cells(NewRow26, 7).Value
Worksheets("P26").Cells(NewRow26, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AD12").Value = NewRow26

End If
If Worksheets("input").Range("B6").Value = 27 Then

Worksheets("P27").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P27").Cells(NewRow27, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P27").Cells(NewRow27, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P27").Cells(NewRow27, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P27").Cells(NewRow27, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P27").Cells(NewRow27, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P27").Cells(NewRow27, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P27").Cells(NewRow27, 8).Value = Worksheets("P27").Cells(NewRow27 - 1, 8).Value + Worksheets("P27").Cells(NewRow27, 6).Value - Worksheets("P27").Cells(NewRow27, 7).Value
Worksheets("P27").Cells(NewRow27, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AE12").Value = NewRow27

End If
If Worksheets("input").Range("B6").Value = 28 Then

Worksheets("P28").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P28").Cells(NewRow28, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P28").Cells(NewRow28, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P28").Cells(NewRow28, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P28").Cells(NewRow28, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P28").Cells(NewRow28, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P28").Cells(NewRow28, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P28").Cells(NewRow28, 8).Value = Worksheets("P28").Cells(NewRow28 - 1, 8).Value + Worksheets("P28").Cells(NewRow28, 6).Value - Worksheets("P28").Cells(NewRow28, 7).Value
Worksheets("P28").Cells(NewRow28, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AF12").Value = NewRow28

End If
If Worksheets("input").Range("B6").Value = 29 Then

Worksheets("P29").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P29").Cells(NewRow29, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P29").Cells(NewRow29, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P29").Cells(NewRow29, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P29").Cells(NewRow29, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P29").Cells(NewRow29, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P29").Cells(NewRow29, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P29").Cells(NewRow29, 8).Value = Worksheets("P29").Cells(NewRow29 - 1, 8).Value + Worksheets("P29").Cells(NewRow29, 6).Value - Worksheets("P29").Cells(NewRow29, 7).Value
Worksheets("P29").Cells(NewRow29, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AG12").Value = NewRow29

End If
If Worksheets("input").Range("B6").Value = 30 Then

Worksheets("P30").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P30").Cells(NewRow30, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P30").Cells(NewRow30, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P30").Cells(NewRow30, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P30").Cells(NewRow30, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P30").Cells(NewRow30, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P30").Cells(NewRow30, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P30").Cells(NewRow30, 8).Value = Worksheets("P30").Cells(NewRow30 - 1, 8).Value + Worksheets("P30").Cells(NewRow30, 6).Value - Worksheets("P30").Cells(NewRow30, 7).Value
Worksheets("P30").Cells(NewRow30, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AH12").Value = NewRow30

End If
If Worksheets("input").Range("B6").Value = 31 Then

Worksheets("P31").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P31").Cells(NewRow31, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P31").Cells(NewRow31, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P31").Cells(NewRow31, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P31").Cells(NewRow31, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P31").Cells(NewRow31, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P31").Cells(NewRow31, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P31").Cells(NewRow31, 8).Value = Worksheets("P31").Cells(NewRow31 - 1, 8).Value + Worksheets("P31").Cells(NewRow31, 6).Value - Worksheets("P31").Cells(NewRow31, 7).Value
Worksheets("P31").Cells(NewRow31, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AI12").Value = NewRow31

End If
If Worksheets("input").Range("B6").Value = 32 Then

Worksheets("P32").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P32").Cells(NewRow32, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P32").Cells(NewRow32, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P32").Cells(NewRow32, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P32").Cells(NewRow32, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P32").Cells(NewRow32, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P32").Cells(NewRow32, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P32").Cells(NewRow32, 8).Value = Worksheets("P32").Cells(NewRow32 - 1, 8).Value + Worksheets("P32").Cells(NewRow32, 6).Value - Worksheets("P32").Cells(NewRow32, 7).Value
Worksheets("P32").Cells(NewRow32, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AJ12").Value = NewRow32

End If
If Worksheets("input").Range("B6").Value = 33 Then

Worksheets("P33").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P33").Cells(NewRow33, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P33").Cells(NewRow33, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P33").Cells(NewRow33, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P33").Cells(NewRow33, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P33").Cells(NewRow33, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P33").Cells(NewRow33, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P33").Cells(NewRow33, 8).Value = Worksheets("P33").Cells(NewRow33 - 1, 8).Value + Worksheets("P33").Cells(NewRow33, 6).Value - Worksheets("P33").Cells(NewRow33, 7).Value
Worksheets("P33").Cells(NewRow33, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AK12").Value = NewRow33

End If
If Worksheets("input").Range("B6").Value = 34 Then

Worksheets("P34").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P34").Cells(NewRow34, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P34").Cells(NewRow34, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P34").Cells(NewRow34, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P34").Cells(NewRow34, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P34").Cells(NewRow34, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P34").Cells(NewRow34, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P34").Cells(NewRow34, 8).Value = Worksheets("P34").Cells(NewRow34 - 1, 8).Value + Worksheets("P34").Cells(NewRow34, 6).Value - Worksheets("P34").Cells(NewRow34, 7).Value
Worksheets("P34").Cells(NewRow34, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AL12").Value = NewRow34

End If
If Worksheets("input").Range("B6").Value = 35 Then

Worksheets("P35").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P35").Cells(NewRow35, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P35").Cells(NewRow35, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P35").Cells(NewRow35, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P35").Cells(NewRow35, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P35").Cells(NewRow35, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P35").Cells(NewRow35, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P35").Cells(NewRow35, 8).Value = Worksheets("P35").Cells(NewRow35 - 1, 8).Value + Worksheets("P35").Cells(NewRow35, 6).Value - Worksheets("P35").Cells(NewRow35, 7).Value
Worksheets("P35").Cells(NewRow35, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AM12").Value = NewRow35

End If
If Worksheets("input").Range("B6").Value = 36 Then

Worksheets("P36").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P36").Cells(NewRow36, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P36").Cells(NewRow36, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P36").Cells(NewRow36, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P36").Cells(NewRow36, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P36").Cells(NewRow36, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P36").Cells(NewRow36, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P36").Cells(NewRow36, 8).Value = Worksheets("P36").Cells(NewRow36 - 1, 8).Value + Worksheets("P36").Cells(NewRow36, 6).Value - Worksheets("P36").Cells(NewRow36, 7).Value
Worksheets("P36").Cells(NewRow36, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AN12").Value = NewRow36

End If
If Worksheets("input").Range("B6").Value = 37 Then

Worksheets("P37").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P37").Cells(NewRow37, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P37").Cells(NewRow37, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P37").Cells(NewRow37, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P37").Cells(NewRow37, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P37").Cells(NewRow37, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P37").Cells(NewRow37, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P37").Cells(NewRow37, 8).Value = Worksheets("P37").Cells(NewRow37 - 1, 8).Value + Worksheets("P37").Cells(NewRow37, 6).Value - Worksheets("P37").Cells(NewRow37, 7).Value
Worksheets("P37").Cells(NewRow37, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AO12").Value = NewRow37

End If
If Worksheets("input").Range("B6").Value = 38 Then

Worksheets("P38").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P38").Cells(NewRow38, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P38").Cells(NewRow38, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P38").Cells(NewRow38, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P38").Cells(NewRow38, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P38").Cells(NewRow38, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P38").Cells(NewRow38, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P38").Cells(NewRow38, 8).Value = Worksheets("P38").Cells(NewRow38 - 1, 8).Value + Worksheets("P38").Cells(NewRow38, 6).Value - Worksheets("P38").Cells(NewRow38, 7).Value
Worksheets("P38").Cells(NewRow38, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AP12").Value = NewRow38

End If
If Worksheets("input").Range("B6").Value = 39 Then

Worksheets("P39").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P39").Cells(NewRow39, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P39").Cells(NewRow39, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P39").Cells(NewRow39, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P39").Cells(NewRow39, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P39").Cells(NewRow39, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P39").Cells(NewRow39, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P39").Cells(NewRow39, 8).Value = Worksheets("P39").Cells(NewRow39 - 1, 8).Value + Worksheets("P39").Cells(NewRow39, 6).Value - Worksheets("P39").Cells(NewRow39, 7).Value
Worksheets("P39").Cells(NewRow39, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AQ12").Value = NewRow39

End If
If Worksheets("input").Range("B6").Value = 40 Then

Worksheets("P40").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P40").Cells(NewRow40, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P40").Cells(NewRow40, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P40").Cells(NewRow40, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P40").Cells(NewRow40, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P40").Cells(NewRow40, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P40").Cells(NewRow40, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P40").Cells(NewRow40, 8).Value = Worksheets("P40").Cells(NewRow40 - 1, 8).Value + Worksheets("P40").Cells(NewRow40, 6).Value - Worksheets("P40").Cells(NewRow40, 7).Value
Worksheets("P40").Cells(NewRow40, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AR12").Value = NewRow40

End If
If Worksheets("input").Range("B6").Value = 41 Then

Worksheets("P41").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P41").Cells(NewRow41, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P41").Cells(NewRow41, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P41").Cells(NewRow41, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P41").Cells(NewRow41, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P41").Cells(NewRow41, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P41").Cells(NewRow41, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P41").Cells(NewRow41, 8).Value = Worksheets("P41").Cells(NewRow41 - 1, 8).Value + Worksheets("P41").Cells(NewRow41, 6).Value - Worksheets("P41").Cells(NewRow41, 7).Value
Worksheets("P41").Cells(NewRow41, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AS12").Value = NewRow41

End If
If Worksheets("input").Range("B6").Value = 42 Then

Worksheets("P42").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P42").Cells(NewRow42, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P42").Cells(NewRow42, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P42").Cells(NewRow42, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P42").Cells(NewRow42, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P42").Cells(NewRow42, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P42").Cells(NewRow42, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P42").Cells(NewRow42, 8).Value = Worksheets("P42").Cells(NewRow42 - 1, 8).Value + Worksheets("P42").Cells(NewRow42, 6).Value - Worksheets("P42").Cells(NewRow42, 7).Value
Worksheets("P42").Cells(NewRow42, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AT12").Value = NewRow42

End If
If Worksheets("input").Range("B6").Value = 43 Then

Worksheets("P43").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P43").Cells(NewRow43, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P43").Cells(NewRow43, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P43").Cells(NewRow43, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P43").Cells(NewRow43, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P43").Cells(NewRow43, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P43").Cells(NewRow43, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P43").Cells(NewRow43, 8).Value = Worksheets("P43").Cells(NewRow43 - 1, 8).Value + Worksheets("P43").Cells(NewRow43, 6).Value - Worksheets("P43").Cells(NewRow43, 7).Value
Worksheets("P43").Cells(NewRow43, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AU12").Value = NewRow43

End If
If Worksheets("input").Range("B6").Value = 44 Then

Worksheets("P44").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P44").Cells(NewRow44, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P44").Cells(NewRow44, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P44").Cells(NewRow44, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P44").Cells(NewRow44, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P44").Cells(NewRow44, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P44").Cells(NewRow44, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P44").Cells(NewRow44, 8).Value = Worksheets("P44").Cells(NewRow44 - 1, 8).Value + Worksheets("P44").Cells(NewRow44, 6).Value - Worksheets("P44").Cells(NewRow44, 7).Value
Worksheets("P44").Cells(NewRow44, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AV12").Value = NewRow44

End If
If Worksheets("input").Range("B6").Value = 45 Then

Worksheets("P45").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P45").Cells(NewRow45, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P45").Cells(NewRow45, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P45").Cells(NewRow45, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P45").Cells(NewRow45, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P45").Cells(NewRow45, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P45").Cells(NewRow45, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P45").Cells(NewRow45, 8).Value = Worksheets("P45").Cells(NewRow45 - 1, 8).Value + Worksheets("P45").Cells(NewRow45, 6).Value - Worksheets("P45").Cells(NewRow45, 7).Value
Worksheets("P45").Cells(NewRow45, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AW12").Value = NewRow45

End If
If Worksheets("input").Range("B6").Value = 46 Then

Worksheets("P46").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P46").Cells(NewRow46, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P46").Cells(NewRow46, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P46").Cells(NewRow46, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P46").Cells(NewRow46, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P46").Cells(NewRow46, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P46").Cells(NewRow46, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P46").Cells(NewRow46, 8).Value = Worksheets("P46").Cells(NewRow46 - 1, 8).Value + Worksheets("P46").Cells(NewRow46, 6).Value - Worksheets("P46").Cells(NewRow46, 7).Value
Worksheets("P46").Cells(NewRow46, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AX12").Value = NewRow46

End If
If Worksheets("input").Range("B6").Value = 47 Then

Worksheets("P47").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P47").Cells(NewRow47, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P47").Cells(NewRow47, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P47").Cells(NewRow47, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P47").Cells(NewRow47, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P47").Cells(NewRow47, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P47").Cells(NewRow47, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P47").Cells(NewRow47, 8).Value = Worksheets("P47").Cells(NewRow47 - 1, 8).Value + Worksheets("P47").Cells(NewRow47, 6).Value - Worksheets("P47").Cells(NewRow47, 7).Value
Worksheets("P47").Cells(NewRow47, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AY12").Value = NewRow47

End If
If Worksheets("input").Range("B6").Value = 48 Then

Worksheets("P48").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P48").Cells(NewRow48, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P48").Cells(NewRow48, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P48").Cells(NewRow48, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P48").Cells(NewRow48, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P48").Cells(NewRow48, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P48").Cells(NewRow48, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P48").Cells(NewRow48, 8).Value = Worksheets("P48").Cells(NewRow48 - 1, 8).Value + Worksheets("P48").Cells(NewRow48, 6).Value - Worksheets("P48").Cells(NewRow48, 7).Value
Worksheets("P48").Cells(NewRow48, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("AZ12").Value = NewRow48
End If

If Worksheets("input").Range("B6").Value = 49 Then

Worksheets("P49").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P49").Cells(NewRow49, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P49").Cells(NewRow49, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P49").Cells(NewRow49, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P49").Cells(NewRow49, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P49").Cells(NewRow49, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P49").Cells(NewRow49, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P49").Cells(NewRow49, 8).Value = Worksheets("P49").Cells(NewRow49 - 1, 8).Value + Worksheets("P49").Cells(NewRow49, 6).Value - Worksheets("P49").Cells(NewRow49, 7).Value
Worksheets("P49").Cells(NewRow49, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("BA12").Value = NewRow49

End If
If Worksheets("input").Range("B6").Value = 50 Then

Worksheets("P50").Unprotect Password:="nottherealpasswordwasjustquicker"

Worksheets("P50").Cells(NewRow50, 2).Value = Worksheets("input").Range("B5").Value
Worksheets("P50").Cells(NewRow50, 3).Value = Worksheets("input").Range("B6").Value
Worksheets("P50").Cells(NewRow50, 4).Value = Worksheets("input").Range("B7").Value
Worksheets("P50").Cells(NewRow50, 5).Value = Worksheets("input").Range("B8").Value
Worksheets("P50").Cells(NewRow50, 7).Value = Worksheets("input").Range("B9").Value
Worksheets("P50").Cells(NewRow50, 6).Value = Worksheets("input").Range("B10").Value
Worksheets("P50").Cells(NewRow50, 8).Value = Worksheets("P50").Cells(NewRow50 - 1, 8).Value + Worksheets("P50").Cells(NewRow50, 6).Value - Worksheets("P50").Cells(NewRow50, 7).Value
Worksheets("P50").Cells(NewRow50, 1).Value = Worksheets("input").Range("D13").Value

Worksheets("input").Range("BB12").Value = NewRow50

End If


MsgBox "New Data added", vbOKOnly, "Test"

Worksheets("input").Range("B5").ClearContents
Worksheets("input").Range("B6").ClearContents
Worksheets("input").Range("B7").ClearContents
Worksheets("input").Range("B8").ClearContents
Worksheets("input").Range("B9").ClearContents
Worksheets("input").Range("B10").ClearContents

Worksheets("input").Range("D12").Value = NewRow
Worksheets("input").Range("D13").Value = TransNo

Worksheets("input").Range("B5").Select

Worksheets("input").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("cashbook").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P1").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P2").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P3").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P4").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P5").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P6").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P7").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P8").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P9").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P10").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P11").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P12").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P13").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P14").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P15").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P16").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P17").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P18").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P19").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P20").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P21").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P22").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P23").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P24").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P25").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P26").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P27").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P28").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P29").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P30").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P31").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P32").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P33").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P34").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P35").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P36").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P37").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P38").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P39").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P40").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P41").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P42").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P43").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P44").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P45").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P46").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P47").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P48").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P49").Protect Password:="nottherealpasswordwasjustquicker"
Worksheets("P50").Protect Password:="nottherealpasswordwasjustquicker"

End Sub