Automatic copying

[FredHanniffy]

I record data in separate monthly worksheets and would like that same data copied automatically as the data is entered into a 'yearly' worksheet to give me cumulative data. Any help much appreciated

 

[Maheshp]

Hi

it seems you are trying to copy all the monthly worksheets on Yearly sheet in workbook
Try

Sub test1()
Dim i As Integer
Dim ws As String
Sheets("yearly").Select
Worksheets(Worksheets.Count).Activate
For i = 1 To Worksheets.Count
Sheets(i).UsedRange.Offset(1).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Copy Destination:=Sheets("yearly").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i
ws = Worksheets(Worksheets.Count).Name
Sheets("yearly").Rows(1).Value = Sheets(ws).Rows(1).Value
End Sub

 

[FredHanniffy]

Thanks for the response. I may have not explained thoroughly.
As I enter the data into a monthly worksheet I would like that same data to automatically be entered into corresponding cells in the yearly worksheet. I am not very learned in excel.