How to put a space in this table in VBA?

[VBAEXCELNew]

Hello,
Currently i have a vba script that does a table however i want my vertical line to be longer but i couldnt manage to do it
Sample:

How can i add a space after my Quotation / Dc No.: and as well goes to my message afterward ?

here my Vba script

                HtmlContent = HtmlContent & "<br><table style='border-collapse: collapse;'><tbody>"
                HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black; text-align: left; padding-bottom: 1em; '>Quotation / DC No.:</th><td style='border: 1px solid black;'>" & R.Offset(0, -2) & "</td></tr>"
                HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black; text-align: left; padding-bottom: 1em; '>Description:</th><td style='border: 1px solid black'>" & R.Offset(0, -1) & "</td></tr> "
                HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black; text-align: left; padding-bottom: 1em; '>Status:</th><td style='border: 1px solid black'>" & "Error Message: " & R.Offset(0, -3) & "<br>" & "Remarks 1: " & R.Offset(0, 2) & "</td></tr>"
                HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black; text-align: left; padding-bottom: 1em; '>Remarks:</th> <td style='border: 1px solid black'>" & R.Offset(0, 5) & "</td></tr>"
                HtmlContent = HtmlContent & "</tbody></table><br>"

 

[VBAEXCELNew]

NVM i am dumb i can use
 

TO ADD AN SPACE