• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

VBA Code Running too long

D

Dokat

Member
Hi,

I have below macro code to run sumifs formula; however it's taking too long to execute the code and it eventually crashes. Anyone may know whats causing the issue. Thanks

Code: 
'FE FORMBRAND LW
Sub SUMIFSLWFORMBRAND()

Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    Const TOTALSROW = 73
    Dim i, x, y, z, t, f, u, q, w, s, n, a, b, c, k, l As Long
   
    With Sheets("FE")
        .Cells(TOTALSROW, 7) = WorksheetFunction.SUMIF(Sheets("Source").Range("CI:CI"), .Cells(TOTALSROW, 5), Sheets("Source").Range("av:av"))

        .Cells(TOTALSROW, 8) = WorksheetFunction.SUMIF(Sheets("Source").Range("CI:CI"), .Cells(TOTALSROW, 5), Sheets("Source").Range("aw:aw"))
               
        For x = 2 To 12
               
        .Cells(TOTALSROW + x, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + x, 4), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + x, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + x, 6))

        .Cells(TOTALSROW + x, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + x, 4), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + x, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + x, 6))
       
        For i = 1 To 1
       
        .Cells(TOTALSROW + i, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + i, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + i, 4))

        .Cells(TOTALSROW + i, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + i, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + i, 4))
       
        For y = 13 To 13
       
        .Cells(TOTALSROW + y, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + y, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + y, 4))

        .Cells(TOTALSROW + y, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + y, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + y, 4))

        For z = 14 To 23
               
        .Cells(TOTALSROW + z, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + z, 4), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + z, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + z, 6))

        .Cells(TOTALSROW + z, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + z, 4), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + z, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + z, 6))
     
      For t = 24 To 24
       
        .Cells(TOTALSROW + t, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + t, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + t, 4))

        .Cells(TOTALSROW + t, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + t, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + t, 4))
   
     For f = 25 To 28
               
        .Cells(TOTALSROW + f, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + f, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + f, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + f, 6))

        .Cells(TOTALSROW + f, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + f, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + f, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + f, 6))
   
     For u = 29 To 29
   
        .Cells(TOTALSROW + u, 7) = WorksheetFunction.SUMIF(Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + u, 5), Sheets("Source").Range("av:av"))

        .Cells(TOTALSROW + u, 8) = WorksheetFunction.SUMIF(Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + u, 5), Sheets("Source").Range("aw:aw"))
   
     For q = 30 To 30
       
        .Cells(TOTALSROW + q, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + q, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + q, 4))

        .Cells(TOTALSROW + q, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + q, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + q, 4))
   
     For w = 31 To 37
               
        .Cells(TOTALSROW + w, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + w, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + w, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + w, 6))

        .Cells(TOTALSROW + w, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + w, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + w, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + w, 6))
   
    For s = 38 To 38
   
        .Cells(TOTALSROW + s, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + q, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + s, 4))

        .Cells(TOTALSROW + s, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + q, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + s, 4))
   
    For n = 39 To 42
               
        .Cells(TOTALSROW + n, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + n, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + n, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + n, 6))

        .Cells(TOTALSROW + n, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + n, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + n, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + n, 6))
   
    For a = 43 To 43
   
        .Cells(TOTALSROW + a, 7) = WorksheetFunction.SUMIF(Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + a, 5), Sheets("Source").Range("av:av"))

        .Cells(TOTALSROW + a, 8) = WorksheetFunction.SUMIF(Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + a, 5), Sheets("Source").Range("aw:aw"))
   
     For b = 44 To 44
       
        .Cells(TOTALSROW + b, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + b, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + b, 4))

        .Cells(TOTALSROW + b, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + b, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + b, 4))
   
     For c = 45 To 53
               
        .Cells(TOTALSROW + c, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + c, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + c, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + c, 6))

        .Cells(TOTALSROW + c, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + c, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + c, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + c, 6))
                                                       
    For k = 54 To 54
       
        .Cells(TOTALSROW + k, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + k, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + k, 4))

        .Cells(TOTALSROW + k, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + k, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + k, 4))
   
     For l = 55 To 58
               
        .Cells(TOTALSROW + l, 7) = WorksheetFunction.SUMIFS(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + l, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + l, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + l, 6))

        .Cells(TOTALSROW + l, 8) = WorksheetFunction.SUMIFS(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + l, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + l, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + l, 6))
                                                       
                                                                Next l
                                                            Next k
                                                        Next c
                                                    Next b
                                               Next a
                                           Next n
                                        Next s
                                    Next w
                                Next q
                            Next u
                        Next f
                    Next t
                Next z
             Next y
           Next i
        Next x
    End With
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub
 
Hi ,

Why is each For ... Next loop nested inside another ?

Should the For ... Next loops not be sequential , one after another ?

Narayan
 
Yes it should be one after another, doesn't need to be nested inside another. How can I revised the code so that its not nested?
 
Hi ,

See if this works :
Code: 
Sub SUMIFSLWFORMBRAND()

Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    Const TOTALSROW = 73
    Dim i, x, y, z, t, f, u, q, w, s, n, a, b, c, k, l As Long
 
    With Sheets("FE")
        .Cells(TOTALSROW, 7) = WorksheetFunction.SumIf(Sheets("Source").Range("CI:CI"), .Cells(TOTALSROW, 5), Sheets("Source").Range("av:av"))

        .Cells(TOTALSROW, 8) = WorksheetFunction.SumIf(Sheets("Source").Range("CI:CI"), .Cells(TOTALSROW, 5), Sheets("Source").Range("aw:aw"))
             
        i = 1
        .Cells(TOTALSROW + i, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + i, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + i, 4))

        .Cells(TOTALSROW + i, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + i, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + i, 4))
       
        For i = 2 To 12
             
            .Cells(TOTALSROW + i, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + i, 4), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + i, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + i, 6))

            .Cells(TOTALSROW + i, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + i, 4), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + i, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + i, 6))
        Next
       
     
        i = 13
        .Cells(TOTALSROW + i, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + i, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + i, 4))

        .Cells(TOTALSROW + i, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + i, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + i, 4))

        For i = 14 To 23
            .Cells(TOTALSROW + i, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + i, 4), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + i, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + i, 6))

            .Cells(TOTALSROW + i, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + i, 4), Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + i, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + i, 6))
        Next
       
        t = 24
        .Cells(TOTALSROW + t, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + t, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + t, 4))

        .Cells(TOTALSROW + t, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + t, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + t, 4))
   
    For f = 25 To 28
             
        .Cells(TOTALSROW + f, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + f, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + f, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + f, 6))

        .Cells(TOTALSROW + f, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + f, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + f, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + f, 6))
    Next
       
        u = 29
        .Cells(TOTALSROW + u, 7) = WorksheetFunction.SumIf(Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + u, 5), Sheets("Source").Range("av:av"))

        .Cells(TOTALSROW + u, 8) = WorksheetFunction.SumIf(Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + u, 5), Sheets("Source").Range("aw:aw"))
       
        q = 30
        .Cells(TOTALSROW + q, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + q, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + q, 4))

        .Cells(TOTALSROW + q, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + q, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + q, 4))
   
    For w = 31 To 37
             
        .Cells(TOTALSROW + w, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + w, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + w, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + w, 6))

        .Cells(TOTALSROW + w, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + w, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + w, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + w, 6))
    Next
       
        s = 38
        .Cells(TOTALSROW + s, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + q, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + s, 4))

        .Cells(TOTALSROW + s, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + q, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + s, 4))
   
    For n = 39 To 42
             
        .Cells(TOTALSROW + n, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + n, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + n, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + n, 6))

        .Cells(TOTALSROW + n, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + n, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + n, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + n, 6))
    Next
        a = 43
        .Cells(TOTALSROW + a, 7) = WorksheetFunction.SumIf(Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + a, 5), Sheets("Source").Range("av:av"))

        .Cells(TOTALSROW + a, 8) = WorksheetFunction.SumIf(Sheets("Source").Range("CB:CB"), .Cells(TOTALSROW + a, 5), Sheets("Source").Range("aw:aw"))
       
        b = 44
        .Cells(TOTALSROW + b, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + b, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + b, 4))

        .Cells(TOTALSROW + b, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + b, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + b, 4))
   
    For c = 45 To 53
             
        .Cells(TOTALSROW + c, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + c, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + c, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + c, 6))

        .Cells(TOTALSROW + c, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + c, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + c, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + c, 6))
    Next
   
        k = 54
        .Cells(TOTALSROW + k, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + k, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + k, 4))

        .Cells(TOTALSROW + k, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + k, 5), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + k, 4))
   
    For l = 55 To 58
             
        .Cells(TOTALSROW + l, 7) = WorksheetFunction.SumIfs(Sheets("Source").Range("av:av"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + l, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + l, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + l, 6))

        .Cells(TOTALSROW + l, 8) = WorksheetFunction.SumIfs(Sheets("Source").Range("aw:aw"), Sheets("Source").Range("CC:CC"), .Cells(TOTALSROW + l, 4), Sheets("Source").Range("Cb:Cb"), .Cells(TOTALSROW + l, 5), Sheets("Source").Range("CG:CG"), .Cells(TOTALSROW + l, 6))
    Next
    End With
   
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub
Narayan
 
You must log in or register to reply here.
Back
Top