macro work but very slow

Sub Equal()

Dim LR As Long, c As Range
For Each c In Range("D3:G300")
    c.Value = Application.WorksheetFunction.Clean(Trim(c.Value))
Next c
LR = Range("J" & Rows.Count).End(xlUp).Row
For Each c In Range("J3:J" & LR)
   If Left(c.Formula, 1) <> "=" Then c.Value = "=" & c.Value
Next c

Range("E2:E500").Select

    Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
Range("D2:H500").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False


End Sub

dear friends i don't have VB knowledge.i have found two macro from net & i have make above macro.it's work but it's take too much time.pls any body can remake this macro to run fast.thanks.

Move your LR resolution up to the top and then use it in the first FOR/EACH like you did for the second. That should help some.

maybe to use

For Each c In Range("D3:G300").SpecialCells (xlCellTypeConstants)
    c.Value = Application.WorksheetFunction.Clean(Trim(c.Value))
Next c

Or ... when using ws functions

  With Range("D3:G300")
    .Value = Evaluate("IF(ROW(" & .Address & "),clean(trim(" & .Address & ")))")
  End With

.
This will give you a much better performance.

thanks sir Marcol.it's almost work.some cells has data like this.'12/2.i have used " ' " (apostrophe) before typing 12/2 because other wise it's automatically change to date format like this." 2-Dec ".after running this macro.that my apostrophe disappear & it's again change to " 2-Dec ".
this part i want to run only in column "D" to "G" range only.i don't want to run whole sheet..

 With Range(myRange.Address)
      .Value = Evaluate("IF(ROW(" & .Address & "),clean(trim(" & .Address & ")))")
    End With

Try this

Option Explicit

Sub Equal()
    Dim c As Range
    Dim LR As Long, maxLR As Long, colNo As Long
    
    For colNo = Range("D:G").Column To Range("D:G").Column + Range("D:G").Columns.Count - 1
        LR = Cells(Rows.Count, colNo).End(xlUp).Row
        If LR > maxLR Then maxLR = LR
    Next
    LR = maxLR
    
    With Range("D2:G" & LR)
      .Value = Evaluate("IF(ROW(" & .Address & "),clean(trim(" & .Address & ")))")
    End With
    
    LR = Range("J" & Rows.Count).End(xlUp).Row
    For Each c In Range("J2:J" & LR)
       If c.Formula = True Then c.Value = c.Value
    Next c
    
    LR = Range("E" & Rows.Count).End(xlUp).Row
    Range("E2:E" & LR).Replace What:="-", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
            
    For colNo = Range("D:H").Column To Range("D:H").Column + Range("D:H").Columns.Count - 1
        LR = Cells(Rows.Count, colNo).End(xlUp).Row
        If LR > maxLR Then maxLR = LR
    Next
    LR = maxLR
    
    Range("D2:H" & LR).Replace What:=" ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False

End Sub

If this doesn't work

A sample workbook would help to clear up any guesswork

Cheers

EDIT:

Missing lines

LR = maxLR

Sorry for that.

Better if each section is written as a function.