Adding in a multiplication function to an existing macro

Hi All

I have my macro working essentially how I would like it to. However, as an added convenience for myself and other potential users down the road (this is a work in progress, as I am relatively new to excel) I would like my existing macro to also take in to account multiple projects. Basically the macro as it stands filters for unique values and then adds these values up on another sheet. I would like however, for these values to be multiplied by the of consoles that need to be made.

On sheet 1 I have a tile set up where I can enter the number of consoles to be made. I would like the totals on sheet 2 to be multiplied by that number. I have tried to do this with VBA but my skills are unforunately lacking.

The Cell I would like to be variable is L10 on sheet 1. I would like the count columns on sheet 2 to be automatically multiplied by the number in L10 in the macro. Here is my code:

Sub CONSOL()
'
' CONSOL Macro
'
' Keyboard Shortcut: Ctrl+Shift+I

    Application.ScreenUpdating = False
    Range("B5").Select
    Columns("B:B").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range("B:B,C:C").Select
    Range("C1").Activate
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Columns("B:B").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Columns("D:D").Select
    Columns("D:D").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range("D:D,E:E").Select
    Range("E1").Activate
    Selection.Copy
    Sheets("Sheet2").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Columns("D:D").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Columns("F:F").Select
    Columns("F:F").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range("F:F,G:G").Select
    Range("G1").Activate
    Selection.Copy
    Sheets("Sheet2").Select
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Columns("F:F").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Columns("H:H").Select
    Columns("H:H").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range("H:H,I:I").Select
    Range("I1").Activate
    Selection.Copy
    Sheets("Sheet2").Select
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Columns("H:H").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Range("J3,K3").Select
    Range("K3").Activate
    Selection.Copy
    Sheets("Sheet2").Select
    Range("I4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Sheets("Sheet2").Select
    Application.ScreenUpdating = True
End Sub

Thanks so much

Right in the columns that are to be multiplied. B, D, F, H. Originally they were just going to reflect the compiled data from sheet one. But I would also like them to be multiplied by the number in L10 on sheet 1

Sorry about the lack of clarity. Most of the time the value in L10 will be 1, so the totals will be the same as they would be multiplied or not. On the rare occasion where there are multiple projects with the same totals, I would like the macro to multiply all of the values on sheet 2 by the number in L10 on sheet 1. What this macro is being used for is counting measurements of various wood cuts, filtering them, and combining like values on sheet 2. Occasionally there will be a project where the same measurements are used multiple times.

I hope this helps.

I figured it out.

Simply made a separate sheet (hidden) where the calculations are done and adjusted the macro accordingly (thanks to JasperD for the help there, I am starting to get the hang of this vba stuff). Now if I can only get my sum formulas to not calculate for a zero value...

I know this is the wrong forum and I'll find it myself eventually I'm sure...but if anyone want to give a very quick indication of how to not make a formula calculate if there's a zero value I would appreciate it.

Thanks for the help guys.