I want to find a way to have a new row appear once I have filled the previous one with text. This is to use as a quote tool.
I currently have a table with rows of tasks to complete and a cost summary at the foot. I would like for this to start with one blank row for me to type the entry in and then add a new row as soon as I have done so in order to allow me to then add a new entry if needed.
I have tried a variety of things including adding a macro button to insert a row when clicked, but I would rather it be automated as the button method requires for the row to be typed in which can lead to error. I have also been trying to work with the following in VBA but am getting an overflow error. I tried to ammend this based on something I found elsewhere online. I am new to VBA and am only vaguely aware of where I am going wrong with this.
Sub AddBlankRows() ' Dim iRow As Integer, iCol As Integer Dim oRng As Range Set oRng = Range("D6") iRow = oRng.Row iCol = oRng.Column Do ' If Not Cells(iRow, iCol).Text = "" Then Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown iRow = iRow + 2 Else iRow = iRow + 1 End If ' Loop While Not Cells(iRow, iCol).Text = "Description of Work" ' End Sub