I tried another this and it worked:
Thanks!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