For Each c In Range("F2:F20") 'Or whatever size range
If c.Value "" And c.Offset(0, 1).Value 1 Then
c.Offset(1, 0).Resize(2, 1).EntireRow.Insert
ElseIf c.Value "" Then
c.Offset(1, 0).EntireRow.Insert
End If
Next




"Saveset" wrote in message
...
Help! I need a macro to add a row after if the cell in column F has a
value
and again if there is a value in column G