Transfering data into multiple sheets in 1 workbook.

Hi everyone.

I've been given some VBA to perform a transfer of money onto different balance sheets in 1 workbook.

The problem I have is two-fold. Please see that attached workbook.

Within each sheet I have added a simple transfer table in the top right hand area. This allows a user to transfer funds from an opening balance on one sheet and add it to another. There are 3 years to be shown so I thought of adding 3 transfer buttons 1 for each year.

Everything works except for the 2 problems.

1. If you don't add a figure in the first row then it won't take away any figures entered below it.

2. Also it takes away 6 instead of 1 if entered. Please help!!! The code is as follows

 Sub Transfer_Button_Sheet1_Year1()
Worksheets("Disabled Child & Young People").Range("C11").Value = Worksheets("Disabled Child & Young People").Range("C11").Value - Worksheets("Disabled Child & Young People").Range("I2").Value
Worksheets("Young Carers").Range("C11").Value = Worksheets("Young Carers").Range("C11").Value + Worksheets("Disabled Child & Young People").Range("I2").Value
Worksheets("Disabled Child & Young People").Range("C11").Value = Worksheets("Disabled Child & Young People").Range("C11").Value - Worksheets("Disabled Child & Young People").Range("I2").Value
Worksheets("Adolescents").Range("C11").Value = Worksheets("Adolescents").Range("C11").Value + Worksheets("Disabled Child & Young People").Range("I3").Value
Worksheets("Disabled Child & Young People").Range("C11").Value = Worksheets("Disabled Child & Young People").Range("C11").Value - Worksheets("Disabled Child & Young People").Range("I2").Value
Worksheets("BME").Range("C11").Value = Worksheets("BME").Range("C11").Value + Worksheets("Disabled Child & Young People").Range("I4").Value
Worksheets("Disabled Child & Young People").Range("C11").Value = Worksheets("Disabled Child & Young People").Range("C11").Value - Worksheets("Disabled Child & Young People").Range("I2").Value
Worksheets("Domestic Violence").Range("C11").Value = Worksheets("Domestic Violence").Range("C11").Value + Worksheets("Disabled Child & Young People").Range("I5").Value
Worksheets("Disabled Child & Young People").Range("C11").Value = Worksheets("Disabled Child & Young People").Range("C11").Value - Worksheets("Disabled Child & Young People").Range("I2").Value
Worksheets("Prevention of Offending").Range("C11").Value = Worksheets("Prevention of Offending").Range("C11").Value + Worksheets("Disabled Child & Young People").Range("I6").Value
Worksheets("Disabled Child & Young People").Range("C11").Value = Worksheets("Disabled Child & Young People").Range("C11").Value - Worksheets("Disabled Child & Young People").Range("I2").Value
Worksheets("Parent Education & Support").Range("C11").Value = Worksheets("Parent Education & Support").Range("C11").Value + Worksheets("Disabled Child & Young People").Range("I7").Value
End Sub

THANKS!!!!
[code]