Snasui Excel Forum

Code: Select all

Sub Macro1()
    Range("AW10").Formula = "=SUM(A12:A" & _
        Range("AW" & Rows.Count).End(xlUp).Row & ")"
    Range("AW11").FormulaR1C1 = "=R[-1]C*3"
    Range("AW10:AW11").AutoFill Destination:=Range("AW10:BF11"), Type:=xlFillDefault
    Range("BF10:BF11").Select
    Selection.Copy
    Range("BH10").Select
    ActiveSheet.Paste
    Range("BJ10:BM11").Select
    ActiveSheet.Paste
    Range("BF10").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("BF10:BG10"), Type:=xlFillDefault
    Range("BF10:BG10").Select
    Range("BG11").FormulaR1C1 = "=R[-1]C"
    Range("BG10:BG11").Copy
    Range("BI10").Select
    ActiveSheet.Paste
    Range("AH1:BN1").Select
    Application.CutCopyMode = False
End Sub