For RowCount = 1 To 3500
If IsNumeric(Range("H" & RowCount).Value) Then
Range("F" & RowCount).Insert Shift:=xlToRight
End If
Next RowCount


"Sreedhar" wrote:

Hi,

I want a macro that inserts cells at column "F" and shifts the cells right
<IF the cell value at column "H" meets certain criteria.

something like:
For each cell in Range(H1:H3500")
If IsNumeric(cell.value) Then 'only numbers, nulls
excluded
''''Insert three cells at "F" and shift right
End If
Next cell

Thanks

--
Sreedhar