need to convert VBA code into Vb script

[Baskar53]

Hi,

i'm new to vbscript can help me this vba code how to convert into vb script.
Sub Macro2()
'
' Macro2 Macro
'

'
'Selection.End(xlDown).Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Delete Shift:=xlToLeft
Range("A2").Select
End Sub

 

[xwb]

' Create an excel object
set xlobj = CreateObject('Excel.Application')

' Use the xlobj for all the excel commands
with xlobj
    .Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    .Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    .Selection.Delete Shift:=xlToLeft
    .Range("A2").Select
end

' Close the object if you need to
xlobj.Close
set xlobj = nothing

 

[strongm]

For xwb's code to work you will also need to declare:

[blue]Const xlUp = -4162 [green]'(&HFFFFEFBE)[/green]
Const xlToLeft = -4159 [green]'(&HFFFFEFC1)[/green]
Const xlLastCell = 11[/blue]