Stuck on how to Reformat data blocks into list with only essential data

Hi-

If the format is always like that, then willwork (untested) as I wrote in a text file;

sub test()
with columns(1)
	set c=.find(":",,,1)
		if not c is nothing then
			f=c.address
			do
				sheets(2).cells(sheets(2).rows.count,1).end(xlup).offset(1).resize(,2).value=array(c.offset(,1).value,c.offset(4).value)
			set c=.findnext(c)
			loop until f=c.address
		end if
end with
end sub

Regards,
event