Try the following (only minor changes to your code) - I haven't tried it
attached it to a button, but it works as a macro.

Private Sub cmdPasteFees_Click()
ActiveSheet.Range("A52:E92").Select
Selection.Copy
Sheets("Rates").Activate
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub