Vista - Auto-filling VB Script Code for Excel

The following Excel macro will auto-fill the cells G1:G6 based on the
contents of the cells G1:G2:
Range("G1:G2").Select
Range("G2").Activate
Selection.AutoFill Destination: = Range("G1:G6"), Type: = xlFillDefault

I need to perform the same operation with a pure VB Script. Is it possible?
If yes, how?

Option Explicit
Const xlFillDefault = 0
Dim filePath, oExcel, oSheet

filePath = "c:\Test.xls"
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Open(filepath)
Set oSheet = oExcel.ActiveWorkbook.Worksheets(1)
osheet.Range("G1:G2").Select
osheet.Range("G2").Activate
oExcel.Selection.AutoFill oExcel.Range("G1:G6"), xlFillDefault
oExcel.ActiveWorkbook.Save
oExcel.ActiveWorkbook.Close
set oSheet = Nothing
Set oExcel = Nothing

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"Pegasus (MVP)" wrote:

"Dave Patrick" <DSPatrick@xxxxxx> wrote in message
news:erqdTMlCJHA.4700@xxxxxxGreat - works like a charm!