Nested Loops

I seem to be having trouble creating a nested loop. It seemed simple enough in my brain holder, however, in real life...Well I am here aren't I.

Here is my code:

Sub MissingDims()
    Dim Sh3LastRow    'Sht3LastRow
    Dim Sh3Range   'Sh3Range
    Dim Sh3Cell   'Sh3cell

    Dim Sh4LastRow    'Sht4LastRow
    Dim Sh4Range   'Sh4Range
    Dim Sh4Cell   'Sh4cell

    With Sheets("Sheet3")    'Loop thru Column E
        Sh3LastRow = .Cells(Rows.Count, "E").End(xlUp).Row
        Set Sh3Range = .Range("E6:E" & Sh3LastRow)
    End With

    With Sheets("Sheet4")    'Loop thru Column C
        Sh4LastRow = .Cells(Rows.Count, "C").End(xlUp).Row
        Set Sh4Range = .Range("C1:C" & Sh4LastRow)
    End With

    For Each Sh3Cell In Sh3Range
        If Sh3Cell.Value = "" Then
            sType = Sh3Cell.Offset(0, -4).Value
            For Each Sh4Cell In Sh4Range
                Sh4Cell.Offset(0, 7).Value = sType
                MsgBox Sh3Cell.Value
            Next Sh4Cell
        End If
    Next Sh3Cell
End Sub

I have gotten myself stuck in a loop for the code in red.

I thought I was stepping from cell E6 of sheet3 and then cell J1 of sheet4 to each next respective cell. What I get is the first blank cell of "sType" is repeated on sheet4 column J for for X amount of cells.

I am trying to list all blank cells from sheet3 column E to sheet 4 column J.

Any hints, tips and or examples is appreciated. Humor is tolerated.