Free for PREMIUM members
Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium
Dim I As Long
For I = 1 To Range("D" & Rows.Count).End(xlUp).Row
If Range("D" & I).Value <> "*" Then
Range("D" & I).Insert xlShiftToRight
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!