Skipping Empty Rows When Importing Files

Is there an easy way to revise the following code so that it imports ONLY the non-blank rows from files?


Sub ImportFiles()
Dim i As Integer, files As String, text As String

ChDir _
"C:Test"

Cells.Select
Range("A1").Activate
Selection.ClearContents
'Selection.QueryTable.Delete
Application. ScreenUpdating = False
i = 0
files = Dir("*.csv")
Do While files <> ""
Open files For Input As 1
Do While Not EOF(1)
i = i + 1
Line Input #1, text
Worksheets(1).Cells(i, 1) = text
Loop