Need VBA for consolidation of multiple sheets

[Demer]

I need a VBA to consolidate all data from multiple sheets that are from column A to the last row and consolidate it on a master sheet but any time I run the vba I need the master sheet to update or delete and ad a new master sheet.

Thanks

 

[Jeffrey Mahoney]

Hi Demer,

Absolutely no offense to you, but I usually ignore broad requests like this. Reasons:
* There is no specific question
* There's not enough information, like sheet names, to even start working
* The project is too large to answer in one post
* The user hasn't taken any time to look at thousands of examples and try to work out a solution before posting a question
* No code, no screen shots, or no formula was provided as a starting point

I really want to help you and people like you. Please help us help you.

With all sincerity, Jeff

 

[Joe4]

Here is a good link to posting tips to enhance your chances of getting the best help possible: Guidelines

 

[Derick63]

I know this thread is old but this might help anyone in search for a solution. This isn't your solution but if you can understand the flow of it, by all means, modify it to suit your sheet names and ranges.

Sub CopyMonthsToMaster()

'Go to month
'Get last used row in colulm A (LR1)
'Copy range "B9:T" & LR1)
'Go to Master Worksheet and get first blank row in colulm A (LR2)
'Paste copied values
'Select cell A1
'Next month in Array

Dim arrSht, i
Dim LR1, LR2 As Long

    Application.ScreenUpdating = False
    
    arrSht = Array("January", "February", "March", "April", "May", "June", "July", _
             "August", "September", "October", "November", "December")
             
    Sheets("Master").Range("A2:T9999").Clear

    For i = LBound(arrSht) To UBound(arrSht)
        Worksheets(arrSht(i)).Select
        With Worksheets(arrSht(i))
            .Unprotect Password:=""
            Application.CutCopyMode = True
            LR1 = Worksheets(arrSht(i)).Range("A" & Rows.Count).End(xlUp).Row
            Worksheets(arrSht(i)).Range("B9:T" & LR1).Copy
            LR2 = Sheets("Master").Range("A9999").End(xlUp).Row + 1
            Sheets("Master").Range("A" & LR2).PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
            .Protect Password:=""
        End With
    Next i

    Sheets("Master").Activate
    Sheets("Master").Range("A1").Select
    Application.ScreenUpdating = True
        
End Sub