Sub chaigfen()Application.ScreenUpdating = FalseApplication.DisplayAlerts = False10
If Sheets(1).Cells(2, 1) = "" Then Exit Sub
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(1).Activate
Sheets(1).Range("1:200").Copy
Sheets(Sheets.Count).Paste
Sheets(...