如果在vba中包含特定字符串，我如何循环遍历单元格并创建新行？

I want to loop through all the cells in column A with content and create a new row above a cell if it contains a specific string. Here is the code I have so far:I want to loop through all the cells in column