problem with a vba code stage opening a macro

[batevasi]

Dim Workbooks as Workbook
Dim Excel, Range, Application as Object
Workbooks.Open (Excel:="MyExcel.xlsm")
Dim xlDown, xlUp as xlDirection
Dim xlNone, xlPasteValues as Constants
Dim CutCopyMode as XlCutCopyMode
Dim Sheets as Sheets
Dim Rows, last_row, Copy, PasteSpecial, Delete, AutoFilter, FormulaR1C1, ActiveCell, Selection, Open as Range
Dim Count as Long

Sheets("Raw").Select
Rows("3:3").Select

Range(Selection, Selection.End(xlDown)).Select
Selection.Delete (Shift:=xlUp)

last_row = Sheets("1").Range("A" & Rows.Count).End(xlUp).Row

Sheets("1").Select
Selection.AutoFilter

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy


Sheets("Raw").Select
Range("RawPolicies[SerialNumber]").Select
Selection.PasteSpecial (Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False)

Sheets("Start").Select
Range("D36").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("D36").Select
Selection.Copy
Selection.PasteSpecial (Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False)
Application.CutCopyMode = False


Sheets("Start").Select