I tried another this and it worked:

Public Function HardPaste(Table_Range As Range, Col_Num As Integer, Row_Num As Integer)
Range(Table_Range(Row_Num, Col_Num), Table_Range(Table_Range.Rows.Count, Table_Range.Columns.Count)).Copy
Table_Range(Row_Num, Col_Num).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Function
Thanks!