Excel Forum

Code: Select all

Sub DailyImport()
'
' DailyImport Macro
'

'
    
    Dim sb As Workbook, rs As Range
    Dim tb As Workbook
    Dim sh As Worksheet

    Set sb = Workbooks("Datan_main.xlsx")
    Set sh = Sheets("Daily_RRx")
    Set tb = Workbooks("SummData_all.xlsm")
    
    
    For Each sh In sb.Worksheets
        Set rs = sh.Range("B7", sh.Range("B" & sh.Rows.Count).End(xlUp))
    tb.Activate
        With tb.Worksheets("Data")
            With .Range("B" & .Rows.Count).End(xlUp).Offset(1, 0)
                .Resize(rs.Rows.Count, 12).Value = rs.Resize(, 12).Value
            End With
        End With
    Next sh


    
    
End Sub

Code: Select all

Set sh = sb.Sheets("Daily_RRx")