Convert two rows of text to HTML

• ALT + F11
• Insert > Module
• paste the following code and close the window:
  

  Sub ConvertToHTML()
      Dim i As Integer, output As String
  
      ' Loop through the data in column A and B
      For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
          output = output & "" & vbCrLf & _
                   "" & Cells(i, 1).Value & "" & vbCrLf & _
                   "" & Cells(i, 2).Value & "" & vbCrLf & _
                   "" & vbCrLf
      Next i
  
      ' Output to a cell (change "C1" if needed)
      Range("C1").Value = output
  End Sub

• ALT + F8 > run the ConvertToHTML macro
• save the file type as "Excel Macro-Enabled Workbook (*.xlsm)"