I have been trying to send data to an Excel Object as follows and it takes about 2 minutes per 100 records. Is there anything I can do to speed it up

n= 0
SCAN
n = n+1
oExcel.Cells(1,n) = FirstName
oExcel.Cells(2,n) = LastName
oExcel.Cells(3,n) = Address1
oExcel.Cells(4,n) = Address2
ENDSCAn