Private Sub Sensibility_Click()
Application.ScreenUpdating = False
Dim a() As Double
ReDim a(1 To 1)
For Each c In Worksheets("Disposal Proceeds").[G11:G65000].SpecialCells(xlCellTypeConstants, 23)
a(UBound(a)) = c.Value
ReDim Preserve a(1 To UBound(a) + 1)
Next c
For i = 1 To 3
For Each c In Worksheets("Disposal Proceeds").[G11:G65000].SpecialCells(xlCellTypeConstants, 23)
c.Value = c.Value - 0.01 + 0.0025 * i
Next c
Worksheets("CF").Range("IrrUnleveraged").Copy
Worksheets("Sensibility analysis").Range("f6").Offset(i).PasteSpecial xlPasteValues
Worksheets("CF").Range("IrrLeveraged").Copy
Worksheets("Sensibility analysis").Range("f15").Offset(i).PasteSpecial xlPasteValues
Next i
For i = 5 To 8
For Each c In Worksheets("Disposal Proceeds").[G11:G65000].SpecialCells(xlCellTypeConstants, 23)
c.Value = c.Value + 0.0025 * i
Next c
Worksheets("CF").Range("IrrUnleveraged").Copy
Worksheets("Sensibility analysis").Range("f6").Offset(i).PasteSpecial xlPasteValues
Worksheets("CF").Range("IrrLeveraged").Copy
Worksheets("Sensibility analysis").Range("f15").Offset(i).PasteSpecial xlPasteValues
Next i
i = 1
For Each c In Worksheets("Disposal Proceeds").[G11:G65000].SpecialCells(xlCellTypeConstants, 23)
c.Value = a(i)
i = i + 1
Next c
Application.CutCopyMode = False
End Sub