Can you please rewrite the VBA code in a simple way to get faster performance:

Option Explicit
Public ProjectSD As Date
Public ProjectED As Date
Public ProjectName As Variant
Public PDateRange As Variant
Public MADateLrow As Integer
Public StDateaddress As Range
Public EDateaddress As Range
Public Domain As String
Public Workstream As String
Public ProcessorTechnology As String
Public Comments As String
Public ScalingFactor As String
Public Synergy As String
Public UnitsinScope As Variant
Public ExpType As String
Public ExpRcr As String
Public PplCst As String
Public Status As String
Public Type1 As String
Public Allocation As Variant
Public LongDescription As String
Public Vendor As String
Public QuoteID As String
Public AFE As String
Public PO As String
Public Addback As String
Public OneTimeAmortizeBeginning As Date
Public OneTimeAmortizeEnd As Date
Public RcrAmortizeBeginning As Date
Public RcrTimeAmortizeEnd As Date
Public OneTimeOpExPeople As Variant
Public OneTimeOpExNonPeople As Variant
Public OneTimeCapExPeople As Variant
Public OneTimeCapExNonPeople As Variant
Public RcrOpExPeople As Variant
Public RcrOpExNonPeople As Variant
Public RcrCapExPeople As Variant
Public RcrCapExNonPeople As Variant
Public OTOpExPeople As Variant
Public OTOpExNonPeople As Variant
Public OTCapExPeople As Variant
Public OTCapExNonPeople As Variant
Public ROpExPeople As Variant
Public ROpExNonPeople As Variant
Public RCapExPeople As Variant
Public RCapExNonPeople As Variant
Public PersonaType As Variant
Public UpdateDate As Variant
Public ItemOwner As Variant
Public AssetID As Variant
Public VendorID As Variant
Public Product As Variant
Public LicenseMetric As Variant
Public ResourceType As Variant
        
Public i As Integer
Public lrow As Integer

Public Sub SettingVariables()

ProjectSD = Sh_MAModelData.Range("B4").Value
ProjectED = Sh_MAModelData.Range("B5").Value
ProjectName = Sh_MAModelData.Range("B6").Value
PDateRange = Sh_MAModelData.Range("E4")

MADateLrow = Sh_MAModelData.Cells(Rows.Count, 1).End(xlUp).Row
Call UpdateDateAndFormatting
End Sub


Sub UpdateDateAndFormatting()

With Sh_InputRawData
    .Range("W1").Value = "=StartDate"
    .Range("X1:OG1").Value = "=IF(COLUMNS(RC23:RC)>TotalMonth,"""",EDATE(RC[-1],1))"
    .Range("W1:OG1").Formula = .Range("W1:OG1").Value
End With
End Sub

Public Sub DataExtract()

For i = 8 To MADateLrow

'Read Data

    With Sh_MAModelData
        Domain = .Cells(i, 1)
        Workstream = .Cells(i, 2)
        ProcessorTechnology = .Cells(i, 3)
        Comments = .Cells(i, 4)
        'N Give two different versions of responses. Please separate the responses with 6 asterisk symbols: ******.
user