VBA - Extraction in loop from specified cell

[shahzeb123]

Hi everyone

I ahve tried BARD CHATGPT COPILOT everyting but does not able to resolve my problem, i have sheet from which i need extract specifed line into new sheet.

in CELL A31 it has to finds F61 then go below and copy the data before ":" and make a header in new sheet
then copy the data after the ":" and paste it below the header
then do the same thing till u find F86
then again look for F61 if it is there do the same thing
and if no F61 is found then jump down to 40 rows to CELL A71 and do the same thing then again jump to 40 rows

DATA look like this

 

[offthelip]

You might find it easier to process your data if you use text to columns splitting it on the ":" symbol

 

[shahzeb123]

I cant us that because i have a big data sheet starting from row 31 and after skipping every 40 row. Need u help for writing a vba code to extract data in to new sheet