Coba mas @Gempur buat sebuah modul (Standard Module), kemudian masukkan baris kode berikut:
Option Explicit
Sub SisipkanBaris()
Dim xlSelection As Range, xlTargetRange As Range
Dim lRow As Long, lRows As Long
On Error GoTo errHandler
'+-- Siapkan variabel seleksi dan target.
Set xlSelection = Sheet1.Application.Selection
Set xlTargetRange = Sheet1.Range("B2:D2")
'+-- Pastikan seleksi berada dalam target area.
If Not Intersect(xlSelection, xlTargetRange.CurrentRegion) Is Nothing Then
'+-- Hitung jumlah baris.
lRows = xlSelection.Rows.Count
For lRow = 1 To lRows
'+-- Buat dan isi baris baru sebanyak baris yang dipilih.
xlTargetRange.Offset(lRow * 2, 0).Insert Shift:=xlShiftDown
xlTargetRange.Offset(lRow * 2, 0).Value = 0
Next
End If
errHandler:
Err.Clear
On Error GoTo 0
End Sub
Kode tersebut di atas hanya berlaku untuk proses seleksi pada Sheet1 saja. Sesuaikan saja nama sheet pada baris kode di atas dengan nama sheet yang diinginkan. Perhatikan, nama Sheet1 di atas merupakan nama Sheet Object pada VBA untuk Sheet1 (bukan nama tab sheet).
Untuk memanggil prosedur SisipkanBaris di atas, bisa menggunakan tombol dengan menetapkan (assign) macro ke prosedur tersebut, atau dengan menjalankan macronya melalui menu Macro pada tab Developer... ;)