Copy data into multiple rows using macros and insert zero

Hi, DeepthiBas9,

maybe like this (please use a copy of the worksheet for testing and adapt the ranges as needed):

Sub EF1005692()
Dim var As Variant
Dim varTemp As Variant
Dim lngCounter As Long
Dim lngInCount As Long

With ActiveSheet
  ReDim var(2 To .Range("A" & Rows.Count).End(xlUp).Row, 1 To 2)
  var = .Range("A2:B" & .Range("A" & Rows.Count).End(xlUp).Row).Value
  .Range("A2:B" & .Range("A" & Rows.Count).End(xlUp).Row).ClearContents
  For lngCounter = LBound(var, 1) To UBound(var, 1)
    With .Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
      .Value = var(lngCounter, 1)
      .Offset(0, 1).Value = var(lngCounter, 2)
    End With
    For lngInCount = 1 To var(lngCounter, 1) - 1
      With .Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        .Value = var(lngCounter, 1)
        .Offset(0, 1).Value = 0
      End With
    Next lngInCount
  Next lngCounter
End With
End Sub

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button

Ciao,
Holger

Try this:

InsertRows.xlsm