Helpp mee to solve this code

1

Please help me to solve this code, i dont get it

Sub PENGAJUAN1()
'
' PENGAJUAN1 Macro
'

'
    ActiveSheet.Next.Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToRight).Select
    Range("W1").Select
    ActiveCell.FormulaR1C1 = "BRANCH"
    Range("X1").Select
    ActiveCell.FormulaR1C1 = "PO"
    Range("W2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC4,MACRO!R7C1:R1048576C4,3,0)"
    Range("W2").Select
    Selection.Copy
    Range("X2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC4,MACRO!R7C1:R1048576C4,3,0)"
    Application.CutCopyMode = False
    Range("X2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC4,MACRO!R7C1:R1048576C4,4,0)"
    Range("W2:X2").Select
    Selection.Copy
    Range("V2").Select
    Selection.End(xlDown).Select
    Range("S2492").Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlDown).Select
    Range("B10638").Select
    Selection.End(xlToRight).Select
    Range("W10638").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("W3:W10638").Select
    Range("W10638").Activate
    Selection.End(xlUp).Select
    Range("W2:X2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W3:W12").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("W4").Select
    Selection.End(xlDown).Select
    Range("W12:X12").Select
    Selection.Copy
    Range("U12").Select
    Selection.End(xlDown).Select
    Range("W2492").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("W2491").Select
    Selection.End(xlUp).Select
    Range("W13:W15").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Range("W1").Select
    Selection.End(xlToLeft).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("A1:R1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Columns.AutoFit
    Selection.End(xlToLeft).Select
    Selection.End(xlToRight).Select
    Columns("U:U").Select
    Selection.Columns.AutoFit
    Columns("S:T").Select
    Range("S2").Activate
    Selection.NumberFormat = "m/d/yyyy"
    Columns("X:X").Select
    Range("X2").Activate
    Selection.Style = "Comma"
    Rows("1:1").Select
    Range("X1").Activate
    Selection.AutoFilter
    Range("X1").Select
End Sub
2

Please Tell us what’s happening in your own words.

Learning to describe problems is hard, but it is an important part of learning how to code.

Also, the more you say, the more we can help!