Fast and Efficient way to input data (table headers) into cells

[ItalianPlatinum]

Hello - I am looking for the best and fastest way to input column headers into a cell. trying to avoid select. I have a large file where I need to clear it each day then rerun to input data. Issue is it removes the column names.

For example: in Column A1 - Z1 there are no columns names. but in A2 - Z400,000 there is my data. the column names will always be the same.

A1 = Date
B1 = Time
C1 = Account

so forth.

 

[Akuini]

Try:

Sheets("Sheet1").Range("A1:C1") = Array("Date", "Time", "Account")