VBA function to copy into new rows depending on the colum values

Question

I`m not a super experienced VBA developer and mostly relly on the Macro recorder, hence would appreciate any help by the community in helping me wrap my head around this pro