If Then Macro for copying formulas please

Hello All

I did not have any luck by posing this question in the Formulas section of this forum, and it was suggested that the experts in the Macro world may be able to help. In the attached spreadsheet, you will notice different formulas in each cell from F5 to AK5. These are necessary due to the insurances I have to work with and how I need to report these out.

The Macro I am hoping that can be developed is something that will help me do the following:

I need the formulas from F5 through AK5 to be inserted in their corresponding columns when a Cell in Column A returns some sort of text. In other words, Cell A11 has text inserted( name ). I need my formulas from F5, G5, H5 etc to show up in every corresponding column (F11, G11, H11 etc, F16,G16,H16 and so on) that has text in Column A. Essentially this is what I did manually for a few rows in this abbreviated spreadsheet, but the spreadsheet I am working on has more then 60K rows.

Thanks so much
Ron

Thank you very much Alan ! I am very grateful for your time. Now I just have to figure out what you mean by" Put this in the Worksheet_Change Event for the sheet in question" as I am very new to the Macro world

Got it ! Thank you again Alan

Alan
Sorry to bother you. Can you tell me why when I try to copy the real names into column A from the master I have, the rows do not update. Will your code not work if I copy and paste into column A?

Thank you very much XLADEPT
I apologize, I know noting about Macros.This is what I have pasted but I am getting an error. "COMPILE ERROR VARIABLE not defined" ( The r is highlighted in the code) Can you tell me what I did wrong?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tRow As Long
Application.Calculation = xlCalculationManual
For r = 6 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & r) <> "" Then _
Range("F5").Resize(1, 37).Copy Range("F" & r)
Next r: Application.Calculation = xlCalculationAutomatic: End Sub

Thank you XLADEPT ! Works like a charm !