Inserting a row using vba

[datacontrol]

I have code set up that takes a csv file and converts it to .xls. When this process happens, I also need to insert a row as the first record with dummy data. I need this because the .xls file is eventually imported and the first row of data is not always representative of the entire column.

Can anyone append this code to insert a row as the first row (below column headings) ?

Thanks

Public Sub ConvertCSVtoXL(strCSVPath As String)

Dim appExcel As Excel.Application

'Switch to Microsoft Excel so it won't go away when you finish.
On Error Resume Next
AppActivate "Microsoft Excel"

'If Excel isn't running, start and activate it
If Err Then
Shell "c:\Program Files\Microsoft Office\Office\" _
& "Excel /Automation", vbHide
AppActivate "Microsoft Excel"
End If
On Error GoTo 0

'Get an Application object so you can automate Excel.
Set appExcel = GetObject(, "Excel.Application")

With appExcel

.Workbooks.Open FileName:=strCSVPath
.Cells.EntireColumn.AutoFit
.Columns("A:A").NumberFormat = "0"


Dim i As Byte
Dim i2 As Integer
Dim aYear As Integer
Dim aMonth As Byte
Dim aDay As Byte

For i = 4 To 5
For i2 = 3 To .Cells(3, i).End(xlDown).Row

aYear = Left(.Cells(i2, i), 4)
aMonth = Mid(.Cells(i2, i), 5, 2)
aDay = Right(.Cells(i2, i), 2)

.Cells(i2, i) = DateSerial(aYear, aMonth, aDay)
Next i2
Next i

.ActiveWorkbook.SaveAs FileName:=Left(strCSVPath, Len(strCSVPath) - 3) & "xls" _
, FileFormat:=xlNormal

End With

appExcel.Quit
Set appExcel = Nothing

MsgBox "File '" & strCSVPath & "' has been converted to excel under the same " & _
"filename with an XLS extension"

End Sub

 

[datacontrol]

help!?

Is there anyone that can help here? I have a deadline of Monday on this project.