One way:

Range("A1:O1") = Array("email", "type", "employer_name", _
"employer_url", "employer_category", _
"employer_logo", "employer_bio", "first_name", _
"last_name", "address_1", "address_2", _
"city", "state", "zip", "password")

or, better (at least, more flexible):

Dim vArr As Variant
vArr = Array("email", "type", "employer_name", _
"employer_url", "employer_category", _
"employer_logo", "employer_bio", "first_name", _
"last_name", "address_1", "address_2", _
"city", "state", "zip", "password")
Range("A1").Resize(1, 1 + UBound(vArr) - LBound(vArr)).Value = vArr



In article ,
Solutions Manager wrote:

Range("A1").Value = "email"
Range("B1").FormulaR1C1 = "type"
Range("C1").FormulaR1C1 = "employer_name"
Range("D1").FormulaR1C1 = "employer_url"
Range("E1").FormulaR1C1 = "employer_category"
Range("F1").FormulaR1C1 = "employer_logo"
Range("G1").FormulaR1C1 = "employer_bio"
Range("H1").FormulaR1C1 = "first_name"
Range("I1").FormulaR1C1 = "last_name"
Range("J1").FormulaR1C1 = "address_1"
Range("K1").FormulaR1C1 = "address_2"
Range("L1").FormulaR1C1 = "city"
Range("M1").FormulaR1C1 = "state"
Range("N1").FormulaR1C1 = "zip"
Range("O1").FormulaR1C1 = "password"