Necesito insertar 2 filas cada 3 filas para agregar nuevos datos el problema esta extenso la bd

Te mando mi solución con esta macro. Posiciónate en la primera celda de esa columna y después ejecútala

Sub proceso()
'por luismondelo
Do While ActiveCell.Value <> ""
ActiveCell.Offset(3, 0).Select
ActiveCell.EntireRow.Insert
ActiveCell.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Loop
End Sub

recuerda finalizar la consulta