I trying to insert multiple column values from many sheets (eg- sheet 1, sheet2, sheet3 which have the same format) to another master sheet (sheet 7) using a command button in sheet1, sheet2, sheet3 to push the data of these sheets to the cells in sheet7 so that everytime the command button in each sheet is clicked, the data is updated in the cells in Sheet7.I don't want to create multiple master sheets like Sheet7 by using excel formulae. Instead I am trying to achieve this using excel VBA. My codes are given below, but while running the code, the error pops up saying the "Compile error:procedure too large". How can I shorten the codes to achieve the task.
Code
[QUOTE][CODE]Private Sub CommandButton2_Click()
Sheet4.Range("Y1").Value = Sheet3.Range("C3").Value
Sheet4.Range("Z1").Value = Sheet3.Range("G3").Value
Sheet4.Range("B3").Value = Sheet3.Range("C2").Value
Sheet4.Range("A5").Value = Sheet3.Range("A9").Value
Sheet4.Range("A6").Value = Sheet3.Range("A10").Value
Sheet4.Range("A7").Value = Sheet3.Range("A11").Value
Sheet4.Range("A8").Value = Sheet3.Range("A12").Value
Sheet4.Range("A9").Value = Sheet3.Range("A13").Value
Sheet4.Range("A10").Value = Sheet3.Range("A14").Value
Sheet4.Range("A11").Value = Sheet3.Range("A15").Value
Sheet4.Range("A12").Value = Sheet3.Range("A16").Value
Sheet4.Range("A13").Value = Sheet3.Range("A17").Value
Sheet4.Range("A14").Value = Sheet3.Range("A18").Value
Sheet4.Range("A15").Value = Sheet3.Range("A19").Value
Sheet4.Range("A16").Value = Sheet3.Range("A20").Value
Sheet4.Range("A17").Value = Sheet3.Range("A21").Value
Sheet4.Range("A18").Value = Sheet3.Range("A22").Value
Sheet4.Range("A19").Value = Sheet3.Range("A23").Value
Sheet4.Range("A20").Value = Sheet3.Range("A24").Value
Sheet4.Range("A21").Value = Sheet3.Range("A25").Value
Sheet4.Range("A22").Value = Sheet3.Range("A26").Value
Sheet4.Range("A23").Value = Sheet3.Range("A27").Value
Sheet4.Range("A24").Value = Sheet3.Range("A28").Value
Sheet4.Range("A25").Value = Sheet3.Range("A29").Value
Sheet4.Range("A26").Value = Sheet3.Range("A30").Value
Sheet4.Range("A27").Value = Sheet3.Range("A31").Value
Sheet4.Range("A28").Value = Sheet3.Range("A32").Value
Sheet4.Range("A29").Value = Sheet3.Range("A33").Value
Sheet4.Range("A30").Value = Sheet3.Range("A34").Value
Sheet4.Range("A31").Value = Sheet3.Range("A35").Value
Sheet4.Range("A32").Value = Sheet3.Range("A36").Value
Sheet4.Range("A33").Value = Sheet3.Range("A37").Value
Sheet4.Range("A34").Value = Sheet3.Range("A38").Value
Sheet4.Range("A35").Value = Sheet3.Range("A39").Value
Sheet4.Range("A36").Value = Sheet3.Range("A40").Value
Sheet4.Range("A37").Value = Sheet3.Range("A41").Value
Sheet4.Range("A38").Value = Sheet3.Range("A42").Value
Sheet4.Range("A39").Value = Sheet3.Range("A43").Value
Sheet4.Range("A40").Value = Sheet3.Range("A44").Value
Sheet4.Range("A41").Value = Sheet3.Range("A45").Value
Sheet4.Range("A42").Value = Sheet3.Range("A46").Value
Sheet4.Range("A43").Value = Sheet3.Range("A47").Value
Sheet4.Range("A44").Value = Sheet3.Range("A48").Value
Sheet4.Range("A45").Value = Sheet3.Range("A49").Value
Sheet4.Range("A46").Value = Sheet3.Range("A50").Value
Sheet4.Range("A47").Value = Sheet3.Range("A51").Value
Sheet4.Range("A48").Value = Sheet3.Range("A52").Value
Sheet4.Range("A49").Value = Sheet3.Range("A53").Value
Sheet4.Range("A50").Value = Sheet3.Range("A54").Value
Sheet4.Range("A51").Value = Sheet3.Range("A55").Value
Sheet4.Range("A52").Value = Sheet3.Range("A56").Value
Sheet4.Range("A53").Value = Sheet3.Range("A57").Value
Sheet4.Range("A54").Value = Sheet3.Range("A58").Value
Sheet4.Range("B5").Value = Sheet3.Range("B9").Value
Sheet4.Range("B6").Value = Sheet3.Range("B10").Value
Sheet4.Range("B7").Value = Sheet3.Range("B11").Value
Sheet4.Range("B8").Value = Sheet3.Range("B12").Value
Sheet4.Range("B9").Value = Sheet3.Range("B13").Value
Sheet4.Range("B10").Value = Sheet3.Range("B14").Value
Sheet4.Range("B11").Value = Sheet3.Range("B15").Value
Sheet4.Range("B12").Value = Sheet3.Range("B16").Value
Sheet4.Range("B13").Value = Sheet3.Range("B17").Value
Sheet4.Range("B14").Value = Sheet3.Range("B18").Value
Sheet4.Range("B15").Value = Sheet3.Range("B19").Value
Sheet4.Range("B16").Value = Sheet3.Range("B20").Value
Sheet4.Range("B17").Value = Sheet3.Range("B21").Value
Sheet4.Range("B18").Value = Sheet3.Range("B22").Value
Sheet4.Range("B19").Value = Sheet3.Range("B23").Value
Sheet4.Range("B20").Value = Sheet3.Range("B24").Value
Sheet4.Range("B21").Value = Sheet3.Range("B25").Value
Sheet4.Range("B22").Value = Sheet3.Range("B26").Value
Sheet4.Range("B23").Value = Sheet3.Range("B27").Value
Sheet4.Range("B24").Value = Sheet3.Range("B28").Value
Sheet4.Range("B25").Value = Sheet3.Range("B29").Value
Sheet4.Range("B26").Value = Sheet3.Range("B30").Value
Sheet4.Range("B27").Value = Sheet3.Range("B31").Value
Sheet4.Range("B28").Value = Sheet3.Range("B32").Value
Sheet4.Range("B29").Value = Sheet3.Range("B33").Value
Sheet4.Range("B30").Value = Sheet3.Range("B34").Value
Sheet4.Range("B31").Value = Sheet3.Range("B35").Value
Sheet4.Range("B32").Value = Sheet3.Range("B36").Value
Sheet4.Range("B33").Value = Sheet3.Range("B37").Value
Sheet4.Range("B34").Value = Sheet3.Range("B38").Value
Sheet4.Range("B35").Value = Sheet3.Range("B39").Value
Sheet4.Range("B36").Value = Sheet3.Range("B40").Value
Sheet4.Range("B37").Value = Sheet3.Range("B41").Value
Sheet4.Range("B38").Value = Sheet3.Range("B42").Value
Sheet4.Range("B39").Value = Sheet3.Range("B43").Value
Sheet4.Range("B40").Value = Sheet3.Range("B44").Value
Sheet4.Range("B41").Value = Sheet3.Range("B45").Value
Sheet4.Range("B42").Value = Sheet3.Range("B46").Value
Sheet4.Range("B43").Value = Sheet3.Range("B47").Value
Sheet4.Range("B44").Value = Sheet3.Range("B48").Value
Sheet4.Range("B45").Value = Sheet3.Range("B49").Value
Sheet4.Range("B46").Value = Sheet3.Range("B50").Value
Sheet4.Range("B47").Value = Sheet3.Range("B51").Value
Sheet4.Range("B48").Value = Sheet3.Range("B52").Value
Sheet4.Range("B49").Value = Sheet3.Range("B53").Value
Sheet4.Range("B50").Value = Sheet3.Range("B54").Value
Sheet4.Range("B51").Value = Sheet3.Range("B55").Value
Sheet4.Range("B52").Value = Sheet3.Range("B56").Value
Sheet4.Range("B53").Value = Sheet3.Range("B57").Value
Sheet4.Range("B54").Value = Sheet3.Range("B58").Value
End Sub
Display More
[/QUOTE][/CODE]