Streaming data to cells

[Logit]

.
Thats ok.

If you determine how to use this code, it will check for a cell to determine if it is NOT EMPTY. If it is not empty, the code inserts a blank row where the cell was located and moves all other rows down one row.

So, you can change the code from A1 to M12 and hopefully it will work for your needs.

Best wishes !

Option Explicit

Sub IsEmptyExample1()
Application.ScreenUpdating = False
If IsEmpty(Range("A1")) = False Then
     Rows("1:1").Select
     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Else
   Exit Sub
End If
Range("A1").Select
Application.ScreenUpdating = True
End Sub