I can try and write some code (from the little clue I have about vba), hoping that someone will fix it into correct syntax...
[vba]
for x = 1 to LAST_CELL ' I assume there`s some way to run until last used bottom cell

if cell(x, CheckCol).value = "1" then goto Next ' This line was handled already


CurrentProp = cell(x, PropertyCol).value
CREATE_FILE CurrentProp + ".txt" ' Replace with the correct command

print CurrentProp + ".txt", "Business Name:" cell(i, BusNameCol).value "| Owner ID:" cell(i, OwnerIDCol).value _
"| Owner name:" cell(i, OwnerNameCol).value "| Owner Address:" cell(i, OwnerAddressCol).value
print CurrentProp + ".txt", vbCrlf
print CurrentProp + ".txt", " "
print CurrentProp + ".txt", "(Sign Content | Width (cm) | Height (cm) | Rounded Area | Sign Address - Street | Sign Address - House | Sign Location)"

cell(x, CheckCol).value = "1" ' Put "1" near every handled line, in "check" column. Or maybe should it be: cells(x, CheckCol) = 1 ?

i = x + 1
NextRange = i + 200
while i < NextRange do ' I'm still not sure if to scan and "collect" from close range or the whole sheet

if cell(i, PropertyCol).value = CurrentProp then

print CurrentProp + ".txt", cell(i, SignContentCol).value "|" cell(i, WidthCol).value "|" cell(i, HeightCol).value _
"|" cell(i, AreaCol).value "|" cell(i, SignStreetCol).value "|" cell(i, SignHouseCol).value "|" cell(i, SignLocationCol).value

NextRange = i + 200 ' As long as u find another match, run on next 200 lines
cell(i, CheckCol).value = 1 ' Put "1" near every handled line, in "check" column

end if

i = i + 1
loop

Next: ' For the goto above
next x
[/vba]