Naming New Sheets with Multiple Submissions

Hello,

Thank you in advance for your help

Objective:
-Copy the range from "Form" to a new sheet when the user hits a button
-Name the new sheet based on a cell value & number

Example:
-User conducted a focus group, filled out the form, hits a "Submit" button. "Focus group" is in cell B2.
-I need the new sheet to be named "Focus Group 1"
-User conducts a 2nd focus group and hits "Submit"
-I need the new sheet to be named "Focus Group 2"

Current State:
-The code copies and pastes on a new sheet named "Sheet #"
-This is code I pulled together from multiple websites. I'm happy to see feedback to make the code cleaner. I'm very new to this.

Function CopyForm()
Worksheets.Add after:=Worksheets(Worksheets.Count), Count:=1
Sheets("Form").Range("A1:O100").Copy
With Sheets(Worksheets.Count).Range("A1:O100")
    .PasteSpecial xlPasteColumnWidths
    .PasteSpecial xlPasteAll
End With
End Function