excel - macro to insert blank rows based on column value -

i'm unsuccessfully trying create macro insert blank row based on cell value.

i have bulk data, in 1 column has differing numbers. based on column value, need insert blank row below it.

if understand should want.
change "a:a" range working , if cell.value = 1 then condition need find cell want add blank row under.

dim range dim cell range set = range("a:a") each cell in i.cells if cell.value = 1 cell.offset(1).entirerow.insert end if next