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.
Bookmarks