VBA users input

Sub wewillsee()
'
' wewillsee Macro
'

'


    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    Range("D7").Select
    ActiveCell.FormulaR1C1 = _
        "=INDEX('[CampaignSpreadsheet-10924019-2017-03-06.xls]Campaign Spreadsheet'!C18,MATCH(RC[2],'[CampaignSpreadsheet-10924019-2017-03-06.xls]Campaign Spreadsheet'!C4,0))"
    Range("D7").Select
    Selection.AutoFill Destination:=Range("D7:D59"), Type:=xlFillDefault
    Range("D7:D59").Select
    ActiveWindow.LargeScroll Down:=-5
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.ColumnWidth = 18.89
    Range("E7").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-1],FIND(""PF"",RC[-1],8),6)"
    Range("E7").Select
    Selection.AutoFill Destination:=Range("E7:E59"), Type:=xlFillDefault
    Range("E7:E59").Select
    ActiveWindow.LargeScroll Down:=-6
    Range("E7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    ActiveWindow.LargeScroll Down:=-2
    Range("D7").Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range("D7:E7").Select
    Application.CutCopyMode = False
    Range("E7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.End(xlUp).Select
    Range("D7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.LargeScroll Down:=0
    Application.CutCopyMode = False
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    Range("D12").Select
End Sub