Getting data from multiple sheets

[metalman32060]

I have a workbook created to keep track of financial information sorted monthly on separate sheets with a totals page. All the pages are set up the same as far as cell locations, on my totals page they are broke into the different categories and I am pulling info for each month to my totals page. I have set up the first month and wanted to know if there was a way to set up the others without typing each cell individually? I have attached the file to show what I am doing. Thanks in advance for any help

[EEL1966]

This VBA should do it

Sub Copy_right()
    Dim R_text As String
    Dim W_text As String
    For i = 1 To 11
        Range("A3").Select
        Do While ActiveCell.Offset(0, 1).Value <> ""
            ActiveCell.Offset(0, 1).Activate
        Loop
        Range(ActiveCell, ActiveCell.Offset(22, 0)).Select
        If i = 1 Then
            R_text = ActiveCell.Offset(-1, 0).Value & "!$"
            W_text = ActiveCell.Offset(-1, 0).Value & "!"
            Selection.Replace What:=W_text, Replacement:=R_text, LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
        End If
        Selection.Copy
        ActiveCell.Offset(0, 1).Activate
        ActiveSheet.Paste
        Application.CutCopyMode = False
        R_text = ActiveCell.Offset(-1, 0).Value
        W_text = ActiveCell.Offset(-1, -1).Value
        Selection.Replace What:=W_text, Replacement:=R_text, LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    Next i
    Range("A1").Select
End Sub

[metalman32060]

Wow,
Thanks you so much, had to google how to use a macro properly =) but worked perfectly