Final Frontier
New Member
- Joined
- Sep 16, 2014
- Messages
- 17
I just started reading up on VBA and many people suggest recording to get an idea of what code looks like. I recorded a similar process that I need to do several times throughout my workbook 4 times and got several pages of code. From various posts it seems like recording gives you way more code than you need. Can anyone give me some hints on how to trim this down? I also need pointers on how to repeat this process several times within a spreadsheet. I'm basically compiling/calculating data between two tabs and entering it on a third tab. It's basically part copying and pasting and part multiplication. Are there any functions that would help simplify? Or maybe I shouldn't even be using VBA for this type of work? I'm struggling on where to begin. Thanks.
Sub AllocationTest1()
Sheets("BI UPLOAD FILE").Select
Range("B2").Select
Sheets("BI INFO").Select
Range("I4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R2C[1]*'BI INFO'!R[2]C[10]"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C61"), Type:=xlFillDefault
Range("C2:C61").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R2C*'BI INFO'!R[2]C[10]"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D61"), Type:=xlFillDefault
Range("D2:D61").Select
Range("E2").Select
Sheets("BI INFO").Select
Range("K4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F2").Select
Sheets("BI INFO").Select
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G2").Select
Sheets("ALLOCATION INFO").Select
Range("G2:H2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G2:H61"), Type:=xlFillDefault
Range("G2:H61").Select
Selection.FillDown
Columns("A:H").Select
Range("A22").Activate
Columns("A:H").EntireColumn.AutoFit
Range("B62").Select
Sheets("BI INFO").Select
Range("I4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C62").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R2C[1]*'BI INFO'!R[-58]C[10]"
Range("C62").Select
Selection.AutoFill Destination:=Range("C62:C121"), Type:=xlFillDefault
Range("C62:C121").Select
Range("D62").Select
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R3C*'BI INFO'!R[-58]C[10]"
Range("D62").Select
Selection.AutoFill Destination:=Range("D62:D121"), Type:=xlFillDefault
Range("D62:D121").Select
Range("C62").Select
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R3C[1]*'BI INFO'!R[-58]C[10]"
Range("C62").Select
Selection.AutoFill Destination:=Range("C62:C121"), Type:=xlFillDefault
Range("C62:C121").Select
Range("E62").Select
Range("E2:F61").Select
Selection.Copy
Range("E62").Select
ActiveSheet.Paste
Range("G62").Select
Sheets("ALLOCATION INFO").Select
Range("G3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G62:H121"), Type:=xlFillDefault
Range("G62:H121").Select
Selection.FillDown
Range("B122").Select
Sheets("BI INFO").Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C122").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R4C[1]*'BI INFO'!R[-118]C[10]"
Range("C122").Select
Selection.AutoFill Destination:=Range("C122:C181"), Type:=xlFillDefault
Range("C122:C181").Select
Range("D122").Select
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R4C*'BI INFO'!R[-118]C[10]"
Range("D122").Select
Selection.AutoFill Destination:=Range("D122:D181"), Type:=xlFillDefault
Range("D122:D181").Select
Sheets("BI INFO").Select
Range("K4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Range("E122").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F122").Select
Sheets("ALLOCATION INFO").Select
Range("A41").Select
Sheets("BI INFO").Select
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G122").Select
Sheets("ALLOCATION INFO").Select
Range("G4:H4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G122:H122").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G122:H181"), Type:=xlFillDefault
Range("G122:H181").Select
Range("B182").Select
Sheets("BI INFO").Select
Range("I4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C182").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R5C[1]*'BI INFO'!R[-178]C[10]"
Range("C182").Select
Selection.AutoFill Destination:=Range("C182:C241"), Type:=xlFillDefault
Range("C182:C241").Select
Range("D182").Select
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R5C*'BI INFO'!R[-178]C[10]"
Range("D182").Select
Selection.AutoFill Destination:=Range("D182:D241"), Type:=xlFillDefault
Range("D182:D241").Select
Sheets("BI INFO").Select
Range("K4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Range("E182").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F182").Select
Sheets("BI INFO").Select
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G182").Select
Sheets("ALLOCATION INFO").Select
Range("G5:H5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G182:H182").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G182:H241"), Type:=xlFillDefault
Range("G182:H241").Select
Selection.FillDown
Range("C2:D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0.00"
Columns("A:H").Select
Columns("A:H").EntireColumn.AutoFit
Range("A1").Select
ActiveWindow.SmallScroll Down:=-9
End Sub
Sub AllocationTest1()
Sheets("BI UPLOAD FILE").Select
Range("B2").Select
Sheets("BI INFO").Select
Range("I4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R2C[1]*'BI INFO'!R[2]C[10]"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C61"), Type:=xlFillDefault
Range("C2:C61").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R2C*'BI INFO'!R[2]C[10]"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D61"), Type:=xlFillDefault
Range("D2:D61").Select
Range("E2").Select
Sheets("BI INFO").Select
Range("K4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F2").Select
Sheets("BI INFO").Select
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G2").Select
Sheets("ALLOCATION INFO").Select
Range("G2:H2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G2:H61"), Type:=xlFillDefault
Range("G2:H61").Select
Selection.FillDown
Columns("A:H").Select
Range("A22").Activate
Columns("A:H").EntireColumn.AutoFit
Range("B62").Select
Sheets("BI INFO").Select
Range("I4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C62").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R2C[1]*'BI INFO'!R[-58]C[10]"
Range("C62").Select
Selection.AutoFill Destination:=Range("C62:C121"), Type:=xlFillDefault
Range("C62:C121").Select
Range("D62").Select
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R3C*'BI INFO'!R[-58]C[10]"
Range("D62").Select
Selection.AutoFill Destination:=Range("D62:D121"), Type:=xlFillDefault
Range("D62:D121").Select
Range("C62").Select
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R3C[1]*'BI INFO'!R[-58]C[10]"
Range("C62").Select
Selection.AutoFill Destination:=Range("C62:C121"), Type:=xlFillDefault
Range("C62:C121").Select
Range("E62").Select
Range("E2:F61").Select
Selection.Copy
Range("E62").Select
ActiveSheet.Paste
Range("G62").Select
Sheets("ALLOCATION INFO").Select
Range("G3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G62:H121"), Type:=xlFillDefault
Range("G62:H121").Select
Selection.FillDown
Range("B122").Select
Sheets("BI INFO").Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C122").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R4C[1]*'BI INFO'!R[-118]C[10]"
Range("C122").Select
Selection.AutoFill Destination:=Range("C122:C181"), Type:=xlFillDefault
Range("C122:C181").Select
Range("D122").Select
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R4C*'BI INFO'!R[-118]C[10]"
Range("D122").Select
Selection.AutoFill Destination:=Range("D122:D181"), Type:=xlFillDefault
Range("D122:D181").Select
Sheets("BI INFO").Select
Range("K4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Range("E122").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F122").Select
Sheets("ALLOCATION INFO").Select
Range("A41").Select
Sheets("BI INFO").Select
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G122").Select
Sheets("ALLOCATION INFO").Select
Range("G4:H4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G122:H122").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G122:H181"), Type:=xlFillDefault
Range("G122:H181").Select
Range("B182").Select
Sheets("BI INFO").Select
Range("I4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C182").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R5C[1]*'BI INFO'!R[-178]C[10]"
Range("C182").Select
Selection.AutoFill Destination:=Range("C182:C241"), Type:=xlFillDefault
Range("C182:C241").Select
Range("D182").Select
ActiveCell.FormulaR1C1 = "='ALLOCATION INFO'!R5C*'BI INFO'!R[-178]C[10]"
Range("D182").Select
Selection.AutoFill Destination:=Range("D182:D241"), Type:=xlFillDefault
Range("D182:D241").Select
Sheets("BI INFO").Select
Range("K4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Range("E182").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F182").Select
Sheets("BI INFO").Select
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G182").Select
Sheets("ALLOCATION INFO").Select
Range("G5:H5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BI UPLOAD FILE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G182:H182").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G182:H241"), Type:=xlFillDefault
Range("G182:H241").Select
Selection.FillDown
Range("C2:D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0.00"
Columns("A:H").Select
Columns("A:H").EntireColumn.AutoFit
Range("A1").Select
ActiveWindow.SmallScroll Down:=-9
End Sub