VBA to insert an empty row based on Column being not blank

[Anfinsen]

Hi all, I have the code below, where i want to insert an empty row, where there is data in column F, starting at F6 (info above that is retained header info). The code below just causes excel to freeze up. I would appreciate any assistance in figuring out what I did wrong here! I am almost certain it's the c.EntireRow.Insert that is causing me an issue, I just don't know what the correct solution is?

Sub AddRows()
  Dim c As Range, sh1 As Worksheet
  Set sh1 = Sheets("Pick List")
  For Each c In sh1.Range("F6", sh1.Cells(Rows.Count, "F").End(xlUp))
    If c.Value <> "" Then
      c.EntireRow.Insert
      
    End If
  Next
End Sub

 

[kevin9999]

I don't think your range reference is quite right, but in any event, when inserting rows you need to start from the bottom and work your way to the top. Like this:

Option Explicit
Sub Anfinsen()
    Dim sh1 As Worksheet, LRow As Long, i As Long
    Set sh1 = Worksheets("Pick List")
    LRow = sh1.Cells(Rows.Count, "F").End(xlUp).Row
    
    For i = LRow To 6 Step -1
        If sh1.Cells(i, 6) <> "" Then sh1.Cells(i, 6).EntireRow.Insert
    Next i
End Sub