Procedure Too Large Error VBA

Hi,

I hope someone can please help. I have a module with a lot of code that is causing me to get a Procedure too Large Error when I press a button to run the code.

The code used is to transfer data from a selected Row in the Data Base sheet within the workbook to multiple Input sheets in the same workbook.

Below is about half the code used in a module and as I am a newbe to VBA I am not sure how to "lighten" the code or other tricks that can be used in order for it to run properly.

Sub RoundedRectangle5_Click()
' Exports all data from Data Base back to the Input Sheets
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Sheets("PropDB").Unprotect ""
If ActiveCell.Column = 1 Then
Sheets("Property").Cells(6, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 2)
Sheets("Property").Cells(8, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 4)
Sheets("Property").Cells(10, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 5)
Sheets("Property").Cells(12, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 6)
Sheets("Property").Cells(14, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 7)
Sheets("Property").Cells(18, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 8)
Sheets("Property").Cells(20, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 9)
Sheets("Property").Cells(6, 20) = Sheets("PropDB").Cells(ActiveCell.Row, 10)
Sheets("Property").Cells(6, 22) = Sheets("PropDB").Cells(ActiveCell.Row, 11)
Sheets("Property").Cells(10, 20) = Sheets("PropDB").Cells(ActiveCell.Row, 12)
Sheets("Property").Cells(12, 20) = Sheets("PropDB").Cells(ActiveCell.Row, 13)
Sheets("Property").Cells(14, 20) = Sheets("PropDB").Cells(ActiveCell.Row, 14)
Sheets("Property").Cells(16, 20) = Sheets("PropDB").Cells(ActiveCell.Row, 15)
Sheets("Property").Cells(18, 20) = Sheets("PropDB").Cells(ActiveCell.Row, 16)
Sheets("Property").Cells(20, 20) = Sheets("PropDB").Cells(ActiveCell.Row, 17)
Sheets("Property").Cells(25, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 20)
Sheets("Property").Cells(27, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 23)
Sheets("Property").Cells(29, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 37)
Sheets("Property").Cells(33, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 39)
Sheets("Property").Cells(39, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 40)
Sheets("Property").Cells(48, 10) = Sheets("PropDB").Cells(ActiveCell.Row, 25)
Sheets("Property").Cells(50, 10) = Sheets("PropDB").Cells(ActiveCell.Row, 27)
Sheets("Property").Cells(52, 10) = Sheets("PropDB").Cells(ActiveCell.Row, 28)
Sheets("Property").Cells(54, 10) = Sheets("PropDB").Cells(ActiveCell.Row, 29)
Sheets("Property").Cells(56, 7) = Sheets("PropDB").Cells(ActiveCell.Row, 43)
Sheets("Property").Cells(56, 10) = Sheets("PropDB").Cells(ActiveCell.Row, 44)
Sheets("Property").Cells(58, 10) = Sheets("PropDB").Cells(ActiveCell.Row, 45)
Sheets("Property").Cells(63, 10) = Sheets("PropDB").Cells(ActiveCell.Row, 41)
Sheets("Property").Cells(65, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 42)
Sheets("Property").Cells(48, 18) = Sheets("PropDB").Cells(ActiveCell.Row, 34)
Sheets("Property").Cells(50, 18) = Sheets("PropDB").Cells(ActiveCell.Row, 31)
Sheets("Property").Cells(63, 17) = Sheets("PropDB").Cells(ActiveCell.Row, 32)
Sheets("Property").Cells(65, 17) = Sheets("PropDB").Cells(ActiveCell.Row, 33)
Sheets("Loan Details").Cells(5, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 26)
Sheets("Loan Details").Cells(11, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 46) 
Sheets("Loan Details").Cells(11, 10) = Sheets("PropDB").Cells(ActiveCell.Row, 47)
Sheets("Loan Details").Cells(15, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 48)
Sheets("Loan Details").Cells(16, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 49)
Sheets("Loan Details").Cells(17, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 50)
Sheets("Loan Details").Cells(18, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 51)
Sheets("Loan Details").Cells(19, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 52)
Sheets("Loan Details").Cells(20, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 53)
Sheets("Loan Details").Cells(21, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 54)
Sheets("Loan Details").Cells(22, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 55)
Sheets("Loan Details").Cells(23, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 56)
Sheets("Loan Details").Cells(24, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 57)
Sheets("Loan Details").Cells(28, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 58)
Sheets("Loan Details").Cells(29, 10) = Sheets("PropDB").Cells(ActiveCell.Row, 59)
Sheets("Loan Details").Cells(32, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 60)
Sheets("Loan Details").Cells(36, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 62)
Sheets("Loan Details").Cells(37, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 63)
Sheets("Loan Details").Cells(38, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 64)
Sheets("Loan Details").Cells(39, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 65)
Sheets("Loan Details").Cells(40, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 66)
Sheets("Loan Details").Cells(41, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 67)
Sheets("Loan Details").Cells(42, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 68)
Sheets("Loan Details").Cells(43, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 69)
Sheets("Loan Details").Cells(44, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 70)
Sheets("Loan Details").Cells(45, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 71)
Sheets("Loan Details").Cells(46, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 72)
Sheets("Loan Details").Cells(47, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 73)
Sheets("Loan Details").Cells(48, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 74)
Sheets("Loan Details").Cells(49, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 75)
Sheets("Loan Details").Cells(50, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 76)
Sheets("Loan Details").Cells(51, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 77)
Sheets("Loan Details").Cells(52, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 78)
Sheets("Loan Details").Cells(53, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 79)
Sheets("Loan Details").Cells(54, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 80)
Sheets("Loan Details").Cells(55, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 81)
Sheets("Loan Details").Cells(56, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 82)
Sheets("Loan Details").Cells(58, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 84)
Sheets("Loan Details").Cells(59, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 85) 
Sheets("Loan Details").Cells(60, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 86)
Sheets("Loan Details").Cells(61, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 87)
Sheets("Loan Details").Cells(62, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 88)
Sheets("Loan Details").Cells(63, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 89)
Sheets("Loan Details").Cells(64, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 90)
Sheets("Loan Details").Cells(65, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 91)
Sheets("Inflation Rate").Cells(5, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 92)
Sheets("Inflation Rate").Cells(10, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 93)
Sheets("Inflation Rate").Cells(11, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 94)
Sheets("Inflation Rate").Cells(12, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 95)
Sheets("Inflation Rate").Cells(13, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 96)
Sheets("Inflation Rate").Cells(14, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 97)
Sheets("Inflation Rate").Cells(15, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 98)
Sheets("Inflation Rate").Cells(16, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 99)
Sheets("Inflation Rate").Cells(17, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 100)
Sheets("Inflation Rate").Cells(18, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 101)
Sheets("Inflation Rate").Cells(19, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 102)
Sheets("Inflation Rate").Cells(20, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 103)
Sheets("Inflation Rate").Cells(21, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 104)
Sheets("Inflation Rate").Cells(22, 8) = Sheets("ProDB").Cells(ActiveCell.Row, 105)
Sheets("Inflation Rate").Cells(23, 8) = Sheets("ProDB").Cells(ActiveCell.Row, 106)
Sheets("Inflation Rate").Cells(24, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 107)
Sheets("Inflation Rate").Cells(25, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 108)
Sheets("Inflation Rate").Cells(26, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 109)
Sheets("Inflation Rate").Cells(27, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 110)
Sheets("Inflation Rate").Cells(28, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 111)
Sheets("Inflation Rate").Cells(29, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 112)
Sheets("Inflation Rate").Cells(30, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 113)
Sheets("Inflation Rate").Cells(31, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 114)
Sheets("Inflation Rate").Cells(32, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 115)
Sheets("Inflation Rate").Cells(33, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 116)
Sheets("Inflation Rate").Cells(34, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 117)
Sheets("Inflation Rate").Cells(35, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 118)
Sheets("Inflation Rate").Cells(36, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 119)
Sheets("Inflation Rate").Cells(37, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 120)
Sheets("Inflation Rate").Cells(38, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 121)
Sheets("Inflation Rate").Cells(39, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 122)
Sheets("Capital Growth").Cells(5, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 123)
Sheets("Capital Growth").Cells(10, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 124)
Sheets("Capital Growth").Cells(12, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 126)
Sheets("Capital Growth").Cells(13, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 127)
Sheets("Capital Growth").Cells(14, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 128)
Sheets("Capital Growth").Cells(15, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 129)
Sheets("Capital Growth").Cells(16, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 130)
Sheets("Capital Growth").Cells(17, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 131)
Sheets("Capital Growth").Cells(18, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 132)
Sheets("Capital Growth").Cells(19, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 133)
Sheets("Capital Growth").Cells(20, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 134)
Sheets("Capital Growth").Cells(21, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 135)
Sheets("Capital Growth").Cells(22, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 136)
Sheets("Capital Growth").Cells(23, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 137)
Sheets("Capital Growth").Cells(24, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 138)
Sheets("Capital Growth").Cells(25, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 139)
Sheets("Capital Growth").Cells(26, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 140)
Sheets("Capital Growth").Cells(27, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 141)
Sheets("Capital Growth").Cells(28, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 142) 
Sheets("Capital Growth").Cells(29, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 143)
Sheets("Capital Growth").Cells(30, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 144)
Sheets("Capital Growth").Cells(31, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 145)
Sheets("Capital Growth").Cells(32, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 146)
Sheets("Capital Growth").Cells(33, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 147) 
Sheets("Capital Growth").Cells(34, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 148)
Sheets("Capital Growth").Cells(35, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 149)
Sheets("Capital Growth").Cells(36, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 150) 
Sheets("Capital Growth").Cells(37, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 151)
Sheets("Capital Growth").Cells(38, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 152)
Sheets("Capital Growth").Cells(39, 8) = Sheets("PropDB").Cells(ActiveCell.Row, 153)
Sheets("Monthly Expenses").Cells(5, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 154)
Sheets("Monthly Expenses").Cells(12, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 155)
Sheets("Monthly Expenses").Cells(13, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 156) 'Exp2
Sheets("Monthly Expenses").Cells(14, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 157) 'Exp3
Sheets("Monthly Expenses").Cells(15, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 158) 'Exp4
Sheets("Monthly Expenses").Cells(16, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 159) 'Exp5
Sheets("Monthly Expenses").Cells(17, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 160) 'Exp6
Sheets("Monthly Expenses").Cells(18, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 161) 'Exp7
Sheets("Monthly Expenses").Cells(19, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 162) 'Exp8
Sheets("Monthly Expenses").Cells(20, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 163) 'Exp9
Sheets("Monthly Expenses").Cells(21, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 164) 'Exp10
Sheets("Monthly Expenses").Cells(22, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 165) 'Exp11
Sheets("Monthly Expenses").Cells(23, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 166) 'Exp12
Sheets("Monthly Expenses").Cells(24, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 167) 'Exp13
Sheets("Monthly Expenses").Cells(25, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 168) 'Exp14
Sheets("Monthly Expenses").Cells(26, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 169) 'Exp15
Sheets("Monthly Expenses").Cells(27, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 170) 'Exp16
Sheets("Monthly Expenses").Cells(28, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 171) 'Exp17
Sheets("Monthly Expenses").Cells(29, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 172) 'Exp18
Sheets("Monthly Expenses").Cells(30, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 173) 'Exp19
Sheets("Monthly Expenses").Cells(31, 6) = Sheets("PropDB").Cells(ActiveCell.Row, 174) 'Exp20


Application.Calculation = xlCalculationAutomatic
Sheets("PropDB").Rows(ActiveCell.Row).Delete
Sheets("PropDB").Protect ""
Sheets("Property").Activate
End If
End Sub