Hi Amit,
Thanks for sending this information. I was unable to get the automation to run properly, however I played around with what you sent and was able to streamline the flow a bit. The issue is that the output into Excel was not what I was looking for.
I've include the new flow below and the emails/output as attachments. Please let me know if you can take a look and let me know what I am doing incorrectly. Thanks.
Frank
Flow:

fx = split(outputs('Html_to_text')?['body'], outputs('NewLine'))

Outputs = SplitIntoLines
fx = length(trim(item()))

First Name
fx = trim(replace(outputs('SplitIntoLines')?[4],'"',''))
Last Name
fx = trim(replace(outputs('SplitIntoLines')?[6],'"',''))
Email
fx = trim(replace(outputs('SplitIntoLines')?[8],'"',''))
Phone
fx = trim(replace(outputs('SplitIntoLines')?[10],'"',''))
Specialty
fx = trim(replace(outputs('SplitIntoLines')?[12],'"',''))
Zip
fx = trim(replace(outputs('SplitIntoLines')?[14],'"',''))
Facility Affiliation
fx = trim(replace(outputs('SplitIntoLines')?[16],'"',''))
Healthcare Designation
fx = trim(replace(outputs('SplitIntoLines')?[18],'"',''))
NPI Number
fx = trim(replace(outputs('SplitIntoLines')?[20],'"',''))
Reasons For Contact
fx = trim(replace(outputs('SplitIntoLines')?[22],'"',''))
Country US?
fx = trim(replace(outputs('SplitIntoLines')?[24],'"',''))
Country (other)
fx = trim(replace(outputs('SplitIntoLines')?[26],'"',''))
Date Received
fx = formatDateTime(parseDateTime(split(triggerOutputs()?['body/receivedDateTime'], '+')[0]), 'MM/dd/yyyy', 'en-US')