Ok,

This should get you what you are looking for!
The file is to big to upload but here is the code Part 1.

Sub Get_Data()
'
' Get_Data Macro
'
' Keyboard Shortcut: Ctrl+d
'
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R[5]C[4],RC[-1]=R[1]C[5]),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "=SUM(R2C6:R1048576C6)"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R7C10,RC[-1]=R3C11),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("K7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R8C10,RC[-1]=R3C11),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("K8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R9C10,RC[-1]=R3C11),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("K9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R7C10,RC[-1]=R3C12),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R7C10,RC[-1]=R3C12),1,""""))"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R7C10,RC[-1]=R3C12),1,""""))"
    Range("F1").Select
    Selection.Copy
    Range("L7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R8C10,RC[-1]=R3C12),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("L8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R9C10,RC[-1]=R3C12),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("L9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R7C10,RC[-1]=R3C13),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("M7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R8C10,RC[-1]=R3C13),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("M8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R9C10,RC[-1]=R3C13),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("M9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R7C10,RC[-1]=R3C14),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("N7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R8C10,RC[-1]=R3C14),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("N8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R9C10,RC[-1]=R3C14),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("N9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R7C10,RC[-1]=R3C15),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("O7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R8C10,RC[-1]=R3C15),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("O8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=""Invoice raising"",RC[-2]=R9C10,RC[-1]=R3C15),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("O9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=R11C10,RC[-2]=R13C10,RC[-1]=R3C11),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("K13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=R11C10,RC[-2]=R14C10,RC[-1]=R3C11),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("K14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=R[-1]C[-5],"""",IF(AND(RC[-4]=R11C10,RC[-2]=R15C10,RC[-1]=R3C11),1,""""))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F4800")
    Range("F2:F4800").Select
    Range("F1").Select
    Selection.Copy
    Range("K15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
This worked on the example that you posted.


Simeon