A Aram New Member Sunday at 8:43 PM #1 How to write a code for inserting a blank row above every non-empty cell in Column B working from the bottom up
How to write a code for inserting a blank row above every non-empty cell in Column B working from the bottom up
J jindon Well-Known Member Monday at 4:38 AM #2 Simple loop... Code: Sub test() Dim i& For i = Range("b" & Rows.Count).End(xlUp).Row To 2 Step -1 If Cells(i, "b") <> "" Then Rows(i).Insert Next End Sub
Simple loop... Code: Sub test() Dim i& For i = Range("b" & Rows.Count).End(xlUp).Row To 2 Step -1 If Cells(i, "b") <> "" Then Rows(i).Insert Next End Sub