Excel VBA：如何插入行并添加文本字符串

I am trying to write a macro for a simple Excel spreadsheet with only one column. Basically I have a long list (5000 rows or more). It is a list of numbered object IDs such as follows:I am trying to write a macro for a simple Excel