How to automatic insert blank rows depend on 1 column?

Question

I have table same there

and I want automatic insert blank rows depend on the cell in first column,

Anyone can help me? I tried many methods but none of it does exactly I need. Sorry for my English.

Answer 1

You can add 1 index column as primary key. Then insert only index column and your PK with all blank fields.

Answer 2

Create button and assign to the following macro

Sub BRow()
    Dim WorkRng As Range
    Dim FirstRow As Integer
    Dim lngRows As Integer
    Dim lngCols As Integer

    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select Range", WorkRng.Address, Type:=8)
    FirstRow = WorkRng.Row
    lngRows = WorkRng.Rows.Count
    lngCols = WorkRng.Columns.Count
    WorkRng.Cells(lngRows, 1).Resize(1, lngCols).Select

    Do Until Selection.Row = FirstRow
        Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Selection.Offset(-1, 0).Select
    Loop
End Sub

See Examples here