Add New Sheet,named based on cell value VBA problem and "smoother" code

hello,
I have a problem with VBA code to copy new sheet named based on cell value
main sheet= sheet 1.. sheet source= sheet 2 .. new sheet= cell A1 value
1. if the same name or in cell a1 has not changed ,cause error ..

If Range("a1").Value = "" Then Exit Sub
Sheets("sheet2").Visible = True
Worksheets("sheet2").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Range("a1").Value
Sheets("sheet2").Visible = False
Worksheets("sheet1").Activate

2. is there any similar code that can be run much smoother or faster..?

thanks for any help