VBA: Wrapping text and transversing text between nubers or given speific text

If there is no blank rows in between data, it is transposing all
Can't we transpose data under each numeric number (or given text) I think it can work without blank rows then.