Sub lkup()
Dim rng As String
rng = Range("A1", Range("A1").End(xlToRight).End(xlDown)).Select
Dim count As Integer
count = Application.WorksheetFunction.Match("City", Sheets("carrierresponse_list").Rows(1), 0)
MsgBox count
Range("B2") = WorksheetFunction.VLookup(Range("A2").Value...