How to add a few blank cells between text filled cells

[GratefullyDyed]

Hello,
I am trying to add 7 blank cells between each data filled cell to properly fit in another spreadsheet for uploading to shopify. Here is what I need in photos:

I need to do that to fit into this:

Please let me know the best way to accomplish this that you know of. Thank you!

 

[kevin9999]

You say that you're trying to:

add 7 blank cells between each data filled cell

however, your image shows 6 blank cells between each data filled cell? Anyhow, the following code will insert 6 blank cells between each data filled cell - change Resize(6) to Resize(7) if 7 was your intention. This works on column B of the active sheet, change to suit.

Option Explicit
Sub InsertRows2()
    Dim LRow As Long, i As Long
    LRow = Cells(Rows.Count, "B").End(xlUp).Row
    For i = LRow To 1 Step -1
        Cells(i, 2).Offset(1).Resize(6).Insert xlShiftDown
    Next i
End Sub

 

[GratefullyDyed]

You say that you're trying to:

however, your image shows 6 blank cells between each data filled cell? Anyhow, the following code will insert 6 blank cells between each data filled cell - change Resize(6) to Resize(7) if 7 was your intention. This works on column B of the active sheet, change to suit.

Option Explicit
Sub InsertRows2()
    Dim LRow As Long, i As Long
    LRow = Cells(Rows.Count, "B").End(xlUp).Row
    For i = LRow To 1 Step -1
        Cells(i, 2).Offset(1).Resize(6).Insert xlShiftDown
    Next i
End Sub

I will give that a go thanks!!

 

[GratefullyDyed]

You say that you're trying to:

however, your image shows 6 blank cells between each data filled cell? Anyhow, the following code will insert 6 blank cells between each data filled cell - change Resize(6) to Resize(7) if 7 was your intention. This works on column B of the active sheet, change to suit.

Option Explicit
Sub InsertRows2()
    Dim LRow As Long, i As Long
    LRow = Cells(Rows.Count, "B").End(xlUp).Row
    For i = LRow To 1 Step -1
        Cells(i, 2).Offset(1).Resize(6).Insert xlShiftDown
    Next i
End Sub

That worked amazing thank you!
I have one more thing I am trying to figure out if you would be so kind to extend help once more. It is very similar so I am trying to figure out if I could change up a little of this code and get it to work for this job. Alas, it is a bit above my expertise lol

In this column I need to separate my 4 product images by 3 blank cells before the next product images. Currently they are just piled on top of eachother in a different sheet in column B:

Thanks again for your help that worked great for me!

 

[GratefullyDyed]

Ive gotten it close so far but I cant seem to get it to not do 5 to start with..

 

[GratefullyDyed]

I was able to make it work by just freezing the top row. Thanks again for your help providing that code! I dont fully understand it but with some tinkering this is what I have now that works:

 

[kevin9999]

Very close We need to accommodate a number of entries that isn't divisible by 4 to avoid that. Try this:

Option Explicit
Sub InsertCells()
    Dim LRow As Long, i As Long
    LRow = Cells(Rows.Count, "B").End(xlUp).Row
    i = LRow Mod 4
    LRow = LRow - i
   
    For i = LRow To 1 Step -4
        Cells(i, 1).Offset(1).Resize(3).EntireRow.Insert
    Next i
End Sub

 

[kevin9999]

Thanks again for your help providing that code!

You're more than welcome, and thanks for the feedback

 

[GratefullyDyed]

Very close We need to accommodate a number of entries that isn't divisible by 4 to avoid that. Try this:

Option Explicit
Sub InsertCells()
    Dim LRow As Long, i As Long
    LRow = Cells(Rows.Count, "B").End(xlUp).Row
    i = LRow Mod 4
    LRow = LRow - i
  
    For i = LRow To 1 Step -4
        Cells(i, 1).Offset(1).Resize(3).EntireRow.Insert
    Next i
End Sub

Yes this new does seem to work but I am dumb and should have been starting with a frozen row1 anyway, as I will want a title row in my spreadsheet. I am trying now to change your recent code to start at row 2 instead of row one. All I am doing is changing numbers tho lol. I dont know much about this kind of thing. Would I need to add something to it to tell it to start on row 2?

 

[GratefullyDyed]

As of now I just changed the offset to 2 and that seems to work but idk if thats right.