Excel VBA: Find, add row&column, replace value of a cell to the right, find next within workbook

Question

I\'m trying to find cell with value "Date", insert an entire row and column. The date is typed wrongly e.g. "01,01,2020" instead of a "01/01/2020&qu