My Code:

Private Sub CommandButton2_Click()

ActiveWorkbook.Sheets("Master").Activate
ActiveSheet.Cells(2, 1).Select
ActiveSheet.Range("A2:A150000").Select
Selection.FormulaR1C1 = "=Sheet1!RC"
ActiveSheet.Cells(2, 2).Select
ActiveSheet.Range("B2:B150000").Select
Selection.FormulaR1C1 = "=VALUE(LEFT(Sheet1!RC[2],6))"
ActiveWindow.SmallScroll Down:=-12
ActiveSheet.Cells(2, 3).Select
ActiveSheet.Range("C2:C150000").Select
Selection.FormulaR1C1 = "=VALUE(Sheet1!RC[2])"
ActiveSheet.Cells(2, 4).Select
ActiveSheet.Range("D2:D150000").Select
Selection.FormulaR1C1 = "=VALUE(Sheet1!RC[2])"
ActiveWindow.SmallScroll Down:=-6
ActiveSheet.Cells(2, 5).Select
ActiveSheet.Range("E2:E150000").Select
Selection.FormulaR1C1 = "=Sheet1!RC[11]"
ActiveWindow.SmallScroll Down:=-6
ActiveSheet.Cells(2, 6).Select
ActiveSheet.Range("F2:F150000").Select
Selection.FormulaR1C1 = _
"=IF(Master!RC[-4]=IFERROR(VLOOKUP(Master!RC[-4],'OEM-Agent to OEM'!R3C1:R178C10,1,FALSE),""""),""OEM"",IF(Master!RC[-4]=IFERROR(VLOOKUP(Master!RC[-4],'rotables suppliers'!R3C1:R70C10,1,FALSE),""""),""Rotables"",IF(Master!RC[-2]=IFERROR(VLOOKUP(Master!RC[-2],'Contracted Suppliers'!R4C1:R137C6,1,FALSE),""""),""Contracted"",""No"")))"
ThisWorkbook.RefreshAll




ActiveWorkbook.Sheets("Instructions").Activate

ActiveSheet.Cells(20, 4).Select
Selection.FormulaR1C1 = _
"=IFERROR(COUNT(Sheet1!R[-18]C[12]:R[149980]C[12]),"""")"
ActiveSheet.Cells(20, 5).Select
Selection.FormulaR1C1 = _
"=IFERROR(SUM(Sheet1!R[-18]C[11]:R[149980]C[11]),"""")"

ActiveWorkbook.Sheets("Spot Buy Analysis").Activate
Range("B3").Resize(Range("C1").Value).Formula = "=RANDBETWEEN(1, $C$1)"

End Sub