Merging multiple files into one excel file

Thanks the Macro works, but is it possible to edit the macro to ignore the top row from the multiple excel files? please assist with updating the Macro below to reflect this:

Sub CombineCSVFiles()
Dim a() As Variant
Dim sFolder As String
Dim sFile As String
Dim i As Long

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = False Then Exit Sub
sFolder = .SelectedItems(1)
End With
sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)

Application.ScreenUpdating = False
With Sheets("Sheet1")
i = .Cells(Rows.Count, 1).End(xlUp).Row + 1
sFile = Dir(sFolder & "*.csv")
Do While sFile <> ""
a = GetArray(sFolder & sFile)
.Cells(i, 1).Resize(UBound(a), UBound(a, 2)) = a
i = i + UBound(a)
sFile = Dir
Loop
End With
Application.ScreenUpdating = True

MsgBox "Done...", 64
End Sub

Function GetArray(ByVal f As String) As Variant
Dim a() As Variant
Dim rw As Variant
Dim cl As Variant
Dim txt As String
Dim i As Long
Dim ii As Long
Dim j As Long

With CreateObject("ADODB.Stream")
.Charset = "windows-1251"
.Open
.LoadFromFile f
txt = .ReadText
.Close
End With

rw = Split(txt, vbCrLf)
ReDim a(0 To UBound(rw), 1 To 7)

For i = 0 To UBound(a) - 1
cl = Split(rw(i), ",")
For j = 1 To UBound(a, 2)
a(i, j) = cl(j - 1)
Next j
Next i

GetArray = a
End Function

Works perfect. Thanks you YasserKhalil.