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
Thanks! This did exactly what I needed!!! I truely appreciate this since I am
just beginning to learn about Macros!
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.