Macro Exel-VBE

Sub Macro1ea01()
'
' Macro1ea01 Macro
' 1ea01
'
' Keyboard Shortcut: Ctrl+l
'
Range("E1").Select
ActiveCell.FormulaR1C1 = "daftar"
Range("C4").Select
ActiveCell.FormulaR1C1 = "nama"
Range("B4").Select
ActiveCell.FormulaR1C1 = "no"
Range("D4").Select
ActiveCell.FormulaR1C1 = "npm"
Range("E4").Select
ActiveCell.FormulaR1C1 = "kelas"
Range("B5").Select
ActiveCell.FormulaR1C1 = "1"
Range("B6").Select
ActiveCell.FormulaR1C1 = "2"
Range("B7").Select
ActiveCell.FormulaR1C1 = "3"
Range("B8").Select
ActiveCell.FormulaR1C1 = "4"
Range("B9").Select
ActiveCell.FormulaR1C1 = "5"
Range("C5").Select
ActiveCell.FormulaR1C1 = "Nebil"
Columns("C:C").Select
Selection.ColumnWidth = 14.86
Range("C6").Select
ActiveCell.FormulaR1C1 = "Saar"
Range("C7").Select
ActiveCell.FormulaR1C1 = "Kila"
Range("C8").Select
ActiveCell.FormulaR1C1 = "Syahla"
Range("C9").Select
ActiveCell.FormulaR1C1 = "Adimas"
Range("D5").Select
Columns("D:D").ColumnWidth = 21
Range("D5").Select
ActiveCell.FormulaR1C1 = "14210945"
Range("D6").Select
ActiveCell.FormulaR1C1 = "14210946"
Range("D7").Select
ActiveCell.FormulaR1C1 = "14210897"
Range("D8").Select
ActiveCell.FormulaR1C1 = "14210987"
Range("D9").Select
ActiveCell.FormulaR1C1 = "14210934"
Range("E5").Select
ActiveCell.FormulaR1C1 = "1EA01"
Selection.AutoFill Destination:=Range("E5:E9"), Type:=xlFillDefault
Range("E5:E9").Select
Range("E6").Select
ActiveCell.FormulaR1C1 = "1EA01"
Range("E7").Select
ActiveCell.FormulaR1C1 = "1EA01"
Range("E8").Select
ActiveCell.FormulaR1C1 = "1EA01"
Range("E9").Select
ActiveCell.FormulaR1C1 = "1EA01"
Range("B6").Select
End Sub