Fixing A Data Export Issue

Try this. The last line deletes blanks so remove if you don't want that.

Sub x()
  
Dim rFind As Range, r As Long
 
With Columns(2)
    Set rFind = .Find(What:=12, LookAt:=xlWhole, SearchFormat:=False)
    If Not rFind Is Nothing Then
        Do
            r = rFind.End(xlUp).Row
            rFind.Resize(, 11).Cut Cells(r, "L")
            Set rFind = .Find(What:=12, LookAt:=xlWhole, SearchFormat:=False)
         Loop Until rFind Is Nothing
    End If
End With

Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub