Macro/VBA to Copy and Paste cells in same location

[aadhyaa]

I need to make a macro/write a VBA code to select from a range of cells,
say H8:AQ117, all cell values greater than 1, and then copy and paste them (paste Value only)
at the same location without their formula as I want those particular cells to
remain unaltered as I change the values at their source.

Could anyone help me with a code for this ?
I'm new to VBA and hence do not know how to code this.

 

[mumps]

Maybe:

Sub PasteVal()
    Application.ScreenUpdating = False
    Dim rng As Range
    For Each rng In Range("H8:AQ117")
        If rng.Value > 1 Then
            rng.Value = rng.Value
        End If
    Next rng
    Application.ScreenUpdating = False
End Sub

 

[aadhyaa]

Oh my god thank you so much !
Worked like magic.

 

[mumps]

You are very welcome.