Paste Values in Certainty Range

hi all...

i have found code to paste values in multiple sheets..
this code working well

Sub Saveasvalue()
'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

but i want to paste value start from ONLY range A1 to F21 in sheet Hitung1, Hitung2, Hitung3, etc.....at once running code

any help, thanks in advance...

john m