To automatically create a variable number of worksheets, name them and the enter the

**chiwidan** · 07-22-2021, 09:31 PM

Sub Prepare_Invoices1()


    
'Filter Empty Cells
    Sheets.Add(After:=Sheets("Calculations")).Name = "Data for Invoices"
    Sheets("Data for Invoices").Select
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "NHI"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "Units"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "Invoice Number"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "CAT"
    Range("A2:D162").Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2:$D$162"), , xlYes).Name = _
        "Table12"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(INDEX(R3C[3]:R12C[3],MATCH(RC1,R3C6:R12C6,0)),0)"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "NHI"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "CAT"
    Range("F2:G12").Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$F$2:$G$12"), , xlYes).Name = _
        "Table13"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "=Macros!R[3]C[-5]"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "=Macros!R[3]C[-5]"




'Start Invoice 1


    Range("A3").Select
    Sheets("Calculations").Select
    Range("Table2[NHI]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[NHI2]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[NHI3]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[NHI4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[NHI5]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[NHI6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[NHI7]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[NHI8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[NHI9]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[NHI10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    Sheets("Calculations").Select
    Range("Table2[Units]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[Units4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[Units6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[Units8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[Units10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[Units12]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[Units14]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[Units16]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[Units18]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table2[Units20]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        
    Sheets("Calculations").Select
    Range("B40").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("C3:C162").Select
    ActiveSheet.Paste


    Range("Table12[#Headers]").Select
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4, Criteria1:= _
        ">0", Operator:=xlAnd
    Range("Table12[[#Headers],[NHI]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("I2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4
    Range("A3:C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A3").Select
        
 'End Invoice 1 start Invoice 2
  
    Range("A3").Select
    Sheets("Calculations").Select
    Range("Table3[NHI]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[NHI2]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[NHI3]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[NHI4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[NHI5]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[NHI6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[NHI7]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[NHI8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[NHI9]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[NHI10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    Sheets("Calculations").Select
    Range("Table3[Units]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[Units4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[Units6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[Units8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[Units10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[Units12]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[Units14]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[Units16]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[Units18]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table3[Units20]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        
    Sheets("Calculations").Select
    Range("B60").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("C3:C162").Select
    ActiveSheet.Paste


    Range("Table12[#Headers]").Select
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4, Criteria1:= _
        ">0", Operator:=xlAnd
    Range("Table12[[#Headers],[NHI]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("N2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4
    Range("A3:C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A3").Select
    
'End Invoice 2 and Start Invoice 3


    Range("A3").Select
    Sheets("Calculations").Select
    Range("Table4[NHI]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[NHI2]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[NHI3]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[NHI4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[NHI5]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[NHI6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[NHI7]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[NHI8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[NHI9]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[NHI10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    Sheets("Calculations").Select
    Range("Table4[Units]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[Units4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[Units6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[Units8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[Units10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[Units12]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[Units14]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[Units16]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[Units18]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table4[Units20]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        
    Sheets("Calculations").Select
    Range("B80").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("C3:C162").Select
    ActiveSheet.Paste


    Range("Table12[#Headers]").Select
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4, Criteria1:= _
        ">0", Operator:=xlAnd
    Range("Table12[[#Headers],[NHI]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("S2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4
    Range("A3:C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A3").Select


'End Invoice 3 and Start Invoice 4


    Range("A3").Select
    Sheets("Calculations").Select
    Range("Table5[NHI]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[NHI2]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[NHI3]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[NHI4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[NHI5]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[NHI6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[NHI7]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[NHI8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[NHI9]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[NHI10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    Sheets("Calculations").Select
    Range("Table5[Units]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[Units4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[Units6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[Units8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[Units10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[Units12]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[Units14]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[Units16]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[Units18]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table5[Units20]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    Sheets("Calculations").Select
    Range("B100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("C3:C162").Select
    ActiveSheet.Paste


    Range("Table12[#Headers]").Select
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4, Criteria1:= _
        ">0", Operator:=xlAnd
    Range("Table12[[#Headers],[NHI]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("X2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4
    Range("A3:C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A3").Select


'End Invoice 4 and Start Invoice 5


    Range("A3").Select
    Sheets("Calculations").Select
    Range("Table6[NHI]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[NHI2]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[NHI3]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[NHI4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[NHI5]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[NHI6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[NHI7]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[NHI8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[NHI9]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[NHI10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    Sheets("Calculations").Select
    Range("Table6[Units]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[Units4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[Units6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[Units8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[Units10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[Units12]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[Units14]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[Units16]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[Units18]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table6[Units20]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        
    Sheets("Calculations").Select
    Range("B120").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("C3:C162").Select
    ActiveSheet.Paste


    Range("Table12[#Headers]").Select
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4, Criteria1:= _
        ">0", Operator:=xlAnd
    Range("Table12[[#Headers],[NHI]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("AC2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4
    Range("A3:C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A3").Select




'End Invoice 5


    Sheets("Macros").Select
    Range("D19").Select


    ActiveSheet.Shapes.Range(Array("Graphic 17")).Select
    Selection.Copy
    Range("D23").Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 82.2222047244
    Selection.ShapeRange.IncrementTop -68.8888976378




    MsgBox "Please proceed to step 3" & vbCrLf & "Thank you", vbOKOnly + vbInformation


End Sub


Sub Prepare_Invoices2()




'Start of Invoice 6




    Range("A3").Select
    Sheets("Calculations").Select
    Range("Table7[NHI]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[NHI2]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[NHI3]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[NHI4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[NHI5]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[NHI6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[NHI7]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[NHI8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[NHI9]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[NHI10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False


    Sheets("Calculations").Select
    Range("Table7[Units]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[Units4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[Units6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[Units8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[Units10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[Units12]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[Units14]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[Units16]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[Units18]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table7[Units20]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        
    Sheets("Calculations").Select
    Range("B140").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("C3:C162").Select
    ActiveSheet.Paste


    Range("Table12[#Headers]").Select
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4, Criteria1:= _
        ">0", Operator:=xlAnd
    Range("Table12[[#Headers],[NHI]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("AH2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4
    Range("A3:C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A3").Select


'End of Invoice 6 and Start of Invoice 7


    Range("A3").Select
    Sheets("Calculations").Select
    Range("Table8[NHI]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[NHI2]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[NHI3]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[NHI4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[NHI5]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[NHI6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[NHI7]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[NHI8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[NHI9]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[NHI10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    Sheets("Calculations").Select
    Range("Table8[Units]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[Units4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[Units6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[Units8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[Units10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[Units12]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[Units14]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[Units16]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[Units18]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table8[Units20]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        
    Sheets("Calculations").Select
    Range("B160").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("C3:C162").Select
    ActiveSheet.Paste


    Range("Table12[#Headers]").Select
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4, Criteria1:= _
        ">0", Operator:=xlAnd
    Range("Table12[[#Headers],[NHI]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("AM2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4
    Range("A3:C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A3").Select


'End Invoice 7 and start Invoice 8


    Range("A3").Select
    Sheets("Calculations").Select
    Range("Table9[NHI]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[NHI2]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[NHI3]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[NHI4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[NHI5]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[NHI6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[NHI7]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[NHI8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[NHI9]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[NHI10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    Sheets("Calculations").Select
    Range("Table9[Units]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[Units4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[Units6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[Units8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[Units10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[Units12]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[Units14]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[Units16]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[Units18]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table9[Units20]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        
    Sheets("Calculations").Select
    Range("B180").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("C3:C162").Select
    ActiveSheet.Paste


    Range("Table12[#Headers]").Select
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4, Criteria1:= _
        ">0", Operator:=xlAnd
    Range("Table12[[#Headers],[NHI]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("AR2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4
    Range("A3:C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A3").Select


'End Invoice 8 start Invoice 9


    Range("A3").Select
    Sheets("Calculations").Select
    Range("Table10[NHI]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[NHI2]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[NHI3]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[NHI4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[NHI5]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[NHI6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[NHI7]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[NHI8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[NHI9]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[NHI10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    
    
    
    Sheets("Calculations").Select
    Range("Table10[Units]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[Units4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[Units6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[Units8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[Units10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[Units12]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[Units14]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[Units16]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[Units18]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table10[Units20]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        
    
    Sheets("Calculations").Select
    Range("B200").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("C3:C162").Select
    ActiveSheet.Paste




    Range("Table12[#Headers]").Select
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4, Criteria1:= _
        ">0", Operator:=xlAnd
    Range("Table12[[#Headers],[NHI]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("AM2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4
    Range("A3:C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A3").Select


'End Invoice 9 and Start Invoice 10


    Range("A3").Select
    Sheets("Calculations").Select
    Range("Table11[NHI]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[NHI2]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[NHI3]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[NHI4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[NHI5]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[NHI6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[NHI7]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[NHI8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[NHI9]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[NHI10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("A147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    Sheets("Calculations").Select
    Range("Table11[Units]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[Units4]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[Units6]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B35").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[Units8]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B51").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[Units10]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B67").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[Units12]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B83").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[Units14]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B99").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[Units16]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B115").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[Units18]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B131").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Calculations").Select
    Range("Table11[Units20]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("B147").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        
    Sheets("Calculations").Select
    Range("B220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data for Invoices").Select
    Range("C3:C162").Select
    ActiveSheet.Paste


    Range("Table12[#Headers]").Select
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4, Criteria1:= _
        ">0", Operator:=xlAnd
    Range("Table12[[#Headers],[NHI]]").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("AW2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    ActiveSheet.ListObjects("Table12").Range.AutoFilter Field:=4
    Range("A3:C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A3").Select




    Sheets("Macros").Select
    Range("F19").Select
    
    ActiveSheet.Shapes.Range(Array("Graphic 20")).Select
    Selection.Copy
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 154.8148031496
    Selection.ShapeRange.IncrementTop -14.0740944882




    MsgBox "Please proceed to step 4" & vbCrLf & "Thank you", vbOKOnly + vbInformation




End Sub

Thread: To automatically create a variable number of worksheets, name them and the enter the

Thread Tools

Display

Threaded View

Tags for this Thread

Posting Permissions