Sub makename()
ActiveSheet.Range("a1").Name = ActiveSheet.Name & "X"
End Sub

This is universal for all sheets. Unfortunately for you it is not
possible to have two or more ranges with same name within one workbook.
You can solve this by replacing e.g. sheet1x by sheet2x in your
formulas afer copying.