Macro to Summarize daily files by copying blocks from daily files.

Your 05252012.xlsx file was empty.

Hi StevenM, Thanks for pointing that out, I'm such a klutz! I've updated it with the right file..

Backup your data.

'The blocks to be copied are G5:G131,L5:L131,K5:K131,J5:J131,I5:I131 from the file '05252012'
'And they need to be pasted to the last five available columns AD to AH.
Private Sub CopyFromBQD(wsBQD As Worksheet, wsThis As Worksheet)
    Dim nNextRow As Long
    With wsThis
        ' First time Next Row begins at row 2 (this can be fixed)
        nNextRow = .Cells(.Rows.Count, "AD").End(xlUp).Row + 1
        wsBQD.Range("G5:G131").Copy .Range("AD" & nNextRow)
        wsBQD.Range("L5:L131").Copy .Range("AE" & nNextRow)
        wsBQD.Range("K5:K131").Copy .Range("AF" & nNextRow)
        wsBQD.Range("J5:J131").Copy .Range("AG" & nNextRow)
        wsBQD.Range("I5:I131").Copy .Range("AH" & nNextRow)
        .Range("AD:AH").Columns.AutoFit
    End With
End Sub


Function GetExcelFileName() As String
    ChDir ThisWorkbook.Path & "\"
    GetExcelFileName = Application.GetOpenFilename( _
        FileFilter:="Excel Files (*.xls*), *.xls*,", _
        FilterIndex:=1, _
        Title:="Select An Excel File")
End Function

Sub UpdateFromDailyFile()
    Dim sFileName As String
    Dim wsThis As Worksheet
    Dim wbDaily As Workbook
    Dim wsBQD As Worksheet
       
    Set wsThis = Worksheets("Sheet3 (2)")
    sFileName = GetExcelFileName()
    If Len(sFileName) Then
        Set wbDaily = Workbooks.Open(sFileName)
        If Not wbDaily Is Nothing Then
            Set wsBQD = wbDaily.Worksheets("BQD")
            CopyFromBQD wsBQD, wsThis
            wbDaily.Close
        End If
    End If
End Sub

menoninblack_Summary File.xlsm