Private Sub Cmd_Click()
Dim ProductLine As String
Dim Tab1
Dim i, x As Integer
x = 0
Range("a4:n65536").Clear
Range("A4").Activate
ProductFile = Application.GetOpenFilename("csv files (*.csv), *.csv")
On Error Resume Next
Open (ProductFile) For Input As #1
Do
Line Input #1, ProductLine
Tab1 = Split(ProductLine, ";")
For i = 0 To UBound(Tab1)
ActiveCell.Offset(x, i) = Tab1(i)
Next i
x = x + 1
Loop While Not EOF(1)
Close #1
End Sub