Extrapolate Text within parenthesis while adjusting header lines, create time range

[Livin404]

Greetings, I have a Column I would like to adjust. Please refer to photo. In Column A whenever there is a date I only need that cell to shift up one (all the rows will have to move up together) as not to miss-align the rows. However I would like the date in its new row to show the day of the week, month, day of month followed by year. In the image for example for "A1" it would read "THURSDAY NOVEMBER 12 2020". In place where the date was I would need "ORIGIN" Regarding the parenthesis I have the following VBA which I got from an earlier post on "Mr. Excel". It removes brackets all right, but it removes everything that is not in a bracket. I only want it to work on places below where there are dates and to ignore blank rows. Thank you,

 Sub ExtractFids()
  Dim Addr As String
  Addr = "A1:A" & Cells(Rows.Count, "A").End(xlUp).Row
  Range(Addr) = Evaluate(Replace("IF(ISNUMBER(FIND(""("",@)),TRIM(MID(LEFT(@,FIND("")"",@)-1),FIND(""("",@)+1,99)),@)", "@", Addr))
End Sub

 

[Livin404]

WOW! That is exactly what I'm looking for! The only thing I may want to add; can I designate for a specific work sheet ("Inbound FIDS"}? That macro will be launched with other macros from a different work sheet? Thank you so much!!

 

[Rick Rothstein]

If I understand you correctly, we just need to qualify the ranges with the sheet reference...

Sub Livin404()
  Dim X As Long
  With Sheets("Inbound FIDS").Range("A2", Sheets("Inbound FIDS").Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlConstants)
    For X = .Areas.Count To 1 Step -1
      If X > 1 Then .Areas(X)(1).EntireRow.Insert
      With .Areas(X)
        .Resize(1).Offset(-1).Value = .Value
        .Resize(1).Offset(-1).Replace "(*", Year(Now), xlPart, , , , False, False
        .Resize(1).Value = "Origin"
        .Offset(1).Replace "*(", ""
        .Offset(1).Replace ")*", ""
      End With
    Next
  End With
End Sub

 

[Livin404]

indeed everything you provided was perfect. I just wanted it to specify the worksheet. Thank you.

 

[Livin404]

I'm wrapping up this project, your contribution is huge. I failed to ask at the time I need to have the word "Date:" in front of the date. I did make a feeble attempt at adding the necessary changes but to no avail.

.Resize(1).Offset(-1).Value = ("Date:") + .Value

Thank you so much!